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ABSTRACT 

The generalized dynamic equations of motion have been obtained by 
the direct stiffness method for raultimass flexible rotor-bearing systems 
including the effects of unbalance, shaft bow, disk skew, rotor acceler- 
ation, gyroscopic moments, and nonlinear bearing forces. The direct 
solution of the equations of motion is illustrated on a simple 3-mass 
system. However, for complex rotor-bearing systems, the direct solution 
of the equations becomes very difficult due to the large number of 
equations necessary to describe the dynamics of the system. The trans- 
formation of the equations of motion into modal coordinates can greatly 
simplify the computation for the solution. The use of undamped and 
damped system mode shapes in the transformation are discussed. 

A set of undamped critical speed modes is used to transform the 
equations of motion into a set of coupled modal equations of motion. 

A rapid procedure for computing stability, steady state unbalance 
response, and transient response of the rotor-bearing system is presented. 
Examples of the application of this modal approach are presented and 
results are compared to those of other methods and to experimental data. 
The dynamics of the system is further investigated with frequency 
spectrum analysis of the transient response through the use of numerical 
fast Fourier Transformation. 
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I. INTRODUCTION AND BACKGROUND 
1.1 Introduction 

Long before the design and manufacturing of large complex turbo- 
machinery when the wheel was invented, man has been plagued 
with both technical and theoretical problems of bearing lubrication 
and shaft dynamics. With the design and operation of large tUrbine 
rotors that power jetliners and vast streams of process machinery 
that operates the industrial community, these problems concerning the 
dynamics of rotor-bearing systems have become more pronounced. 

Engineers are faced with the problem of designing a rotor 
capable of operating through various adverse conditions of temperature, 
speed, and load. As an example, turbo-rotors designed for fuel pump 
units of space applications must have satisfactory performance under 
extreme temperature and gravitation loadings at very high speed. In 
many of these applications, the designed unit must operate through 
several basic critical speeds (or natural vibration frequencies) of 
the system. Under these circumstances, it is extremely difficult to 
insure that the unit will operate with a stable and low-amplitude of 
vibration performance. 

The instability and high amplitude vibration problems may come 
from the erroneous design of the machinery, the misassembly of the 
system, and the operation under adverse conditions. 

The major causes can be stated as follows: 

1. large mass unbalance In the rotor 

2. high rotor amplification factor 
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3. large bearing hydrodynamic cross-coupling effects 

4. large turbine (impeller) aerodynamic cross-coupling forces 

5. shaft thermal and mechanical bow and disk skew effects 

6. misalignment of shaft and bearing elements 

7. effects of internal friction 

8. large shaft assymmetry in the system 

9. support motion from housing vibration or seismic effects 

10. large overhang in the system (gyroscopic effects) 

11. operation near the critical speed of the system 

12. impeller or turbine blade loss 

13. rubbing of bearing or seal 

14. fast start up or shut down 

A vast amount of information has been developed concerning the above 
problems separately. The interests and means of solving the combined 
problem has been evolving since the early 60's. The next section 
will discuss the earliest work briefly but will concentrate more on 
the present state of art in the field of dynamics of rotor-bearing 


systems . 
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1. 2 Background 

Advances in the design and operation of rotating machinery in 
modern engineering are closely linked with solutions of several 
problems in the field of rotor dynamics. These problems have been 
investigated separately by various researchers. The earliest recorded 
article on this subject was introduced by Rankine El] in 1869. He 
examined the neutral or "indifferent 11 equilibrium conditions of a 
shaft operating through its first critical speed. Without taking 
into consideration support damping and Coriolis force, he concluded 
Chat the rotor system would be unstable if operated beyond its first 
critical speed. His conclusion has led engineers in the next several 
decades to believe that rotor systems were not capable of operating 
beyond the first critical speed. In 1894 f Dunkerley C8] reported his 
study on rotor dynamic behavior near its critical speed regions. He 
showed that by neglecting unbalance and damping, the rotor whirling 
frequencies can be replaced by the lateral vibration frequencies of 
a simply supported rotor system. As a result of his investigations, 
rotor manufacturers tried to design rotors with rigid shaft such that 
their critical speeds were raised beyond the operating speed range. 

In 1919, Jeffcott C2] made an intensive investigation in the dynamics 
of simple rotor models In two dimensional form with the inclusion of 
damping effects. He further explained the meaning of critical speed 
and introduced the new terminology of "whirl Instability." 

In the 1920's, turbine and compressor manufacturers began to see 
a trend of the reverse concept. They tried to design rotors with 
lighter weight such that the first critical speed of the system is 


much lover chan the operating speed range. Later, Newkirk C3ll made 
an intensive investigation on stability of rotor-bearing systems 
and concluded that the rotor dynamic behavior could not be attributed 
to a critical speed resonance and the reduction of unbalance had no 
effect upon rotor whirl amplitudes. During the same time, a group 
of investigators concentrated on the study of hydrodynamic behaviors 
of fluid film bearings. Using the Sommerfeld treatment, they found 
that the hydrodynamic profile predicts a negative fluid film pressure 
of the same order as the positive pressure. This negative pressure 
causes the fluid film to cavitate and results in radial bearing force 
in the system. In 1952, Poritsky C57] reported that the cavitation 
of the fluid film can excite the ’’half-whirl" instability of the system. 

In 1944, Myklestad and in 1945, Prohl C4U had extended the 
Holzer method of calculating torsional frequencies into the matrix 
transfer method of calculating lateral critical speeds of rotor-bearing 
systems. It became one of the most powerful tools in solving rotor 
dynamical problems in the last two decades. More recent investigations 
have made a slight extension of this work by Myklestad - Prohl to 
include various effects such as shear deformation and gyroscopic 
moments. In 1954, Yamamoto C53 presented his study on the rotor for- 
ward and backward whirl due to gyroscopic effects. His report gave 
the researchers deeper insight in the dynamic behavior of simple rotor . 
systems . 

With the development of large digital computers, the simulation 
of complex rotor-bearing systems is made possible. The matrix 
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transfer method of Myklestad and Prohl has been fully extended into 
the analysis of critical speeds C<>, 73, stability ClO, ll3, and forced 
response Cl73 of complex turborotors. Other methods such as the 
finite difference and finite element Cl4, 22, 373 approach were also 
used in the study of rotor dynamics. The rotor system is simulated 
by the combination of a large number of small elastic shaft elements. 
Rotor weights and inertia moment effects are lumped at the mass 
stations, which are the interconnecting node points of the shaft 
elements. If a large number of node points (or shaft elements) are used, 
this discrete element approach usually can give a very close approxi- 
mation of the real system. With the advances of high-speed computers, 
transient response motion of rotor-bearing systems were investigated 
through real time numerical integration of rotor acceleration. Gunter 
£9j presented analog computer-produced transient orbits of simple rotor 
models with both linear bearing characteristics and nonlinear fluid 
film bearing forces. Orbits showing combined effects of synchronous 
unbalance response and half- frequency whirl instability were presented. 
The nonlinear case formed finite limit cycles, whereas the linear 
systems were unbounded. Shen C343 presented a formulation for flexible 
rotor analysis using the influence coefficient approach. Kirk C333 
further discussed the transient motion of multi-mass rotor systems 
with effects of nonlinear bearing support. He concluded that linear 
stability analysis of the system can be verified using transient 
response results. However, he did no.t point out the use of transient 
response motion to predict nonlinear stability of the system. Breed 
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and Castelli [[353 also discussed the use of time transient approach 
in solving shaft dynamic problems with various types of bearings. 

Their results are compared to theoretical verifications with 
excellent agreement. Hitching C373 outlined transient approach using 
finite element approach. He also discussed the effects of random 
excitation functions and the application of Taylor series and curve 
fitting to the transient solution. 

In the case of simple rotor systems, investigators had found that 
the transient behavior of the rotor may readily be obtained from 
direct numerical integration of the equations of motion. However, 
this may not be the case for a more complex rotor system with a large 
number of mass stations. The integration of large numbers of equations 
of motion is extremely time consuming and may lead to serious numer- 
ical problems. A more efficient way to compute transient response of 
rotor-bearing systems is the modal C39-553 (building block) approach 
which had long been applied by the structural engineers. Foss [[393 in 
1958 has outlined the transient response calculations using the damped 
modes of the system.' r The system of equations of motion is uncoupled 
through modal transformation, and the transient response of the system 
can be calculated directly as a linear function of the damped mode 
shapes. Lund C5l3 generalized this concept of using damped modes in 
transient analysis of large, complex turborotors. He demonstrated 
the procedure by its application on an industrial 8-stage compressor 
and obtained transient results with close accuracy. Black C293 further 
expanded this concept of modal resolution in the balancing of 
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synchronous vibration in flexible multimass rotors with nonconserva- 
tive cross-coupling. 

Since damped modes of rotor systems are more difficult and time 
consuming to obtain than the undamped modes, the similar trend of 
modal analysis using the undamped modes were also suggested. Caughey 
C543 presented a detailed discussion on the orthogonality conditions 
of modes (or eigenvectors) in damped linear dynamic systems. Bishop 
[[273 used the undamped modes to uncouple the dynamical equations of 
motion in his modal balancing procedure. He adopted the "proportional 
damping" assumption, which is a common practice for structural 
engineers to further simplify modal equations of motion. However, 
this assumption is accurate only when small damping is present in 
the system and will not be accurate for systems with hydrodynamic 
bearings or seals. Lund £3l3 further expanded this concept of modal 
balancing using the free shaft modes. Klosterman C533 investigated 
the experimental extraction of free undamped modes from a shaker 
table and the use of the free modes in a building block approach 
to system analysis. He illustrated his method on the balancing 
of multi-plane rotor bearing system as well as transient dynamic 
analysis . Childs C40 - 443 performed a complete investigation in 
using undamped modes calculated from the averaged vertical and hor- 
izontal support stiffness of the system. He outlined the modal 
treatment by rigid body dynamics derived from rotating coordinates. 
This formulation takes into account bearing constraints which may be 
nonlinear, ouch as fluid film bearings [60 ] or elastic rolling element 
bearings with dead band. He demonstrated the use of this modal 
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analysis by a complete dynamic analysis of the space shuttle main 
engine fuel pump. His solutions were verified by experimental 
results from test facilities. 

Korton reported that better accuracy can be achieved by 

using both "free-free" and "pin-pin" modes during modal treatment 
of the equations of motion. He pointed out that the modal equations 
are coupled when both sets of modes are used, but the computational 
effort for solution will not be much greater than solving the un- 
coupled equations. He verified this procedure by comparing his 
solutions to the exact solution and came up with excellent agreement. 

The formulations for the transient solution of flexible rotor- 
bearing systems are excellent approaches to a very difficult problem. 

However, a simple but complete scheme of simulating the dynamics of 
rotor-bearing systems has not been developed. The following analysis 
presents a derivation of the equations of motion for rotor-bearing 
systems including the effects of gyroscopic, unbalance, disk skew, 
shaft bow, nonlinear bearings, moment-resisting bearings, and rotor 
acceleration. The application of modal analysis to uncouple the 
equations of motion simplifies stability, steady state unbalance re- 
sponse, and transient response analysis of the system. Nonlinear 
stability of the system can be predicted by frequency spectrums 
calculated from Fourier transformation of the transient solution. 


1.3 Statement of the Problem 


The purpose of this analysis is to present the formulation of 
a simple and fast method for the complete simulation of rotor-bearing 
systems. This analysis will provide designers with complete design 
Information such as critical speed and modes, amplification factors, 
stability, steady state and transient forced response, and frequency 
spectrum of the system without involving a large scale of computational 


costs. 
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II. FORMULATION OF EQUATIONS OF MOTION 

In the design of high speed rotating machinery, it is often 
necessary that the machinery must operate through several rotor bending 
critical speeds to obtain the speed required in present applications 
and optimal operations. In order to simulate real rotor motion or 
to predict rotor dynamic behavior accurately, this class of machinery 
must be analyzed under the general field of study known as flexible 
rotor dynamics. This assumes that neither the rotor itself will act 
as a rigid body nor the bearings in the system will be infinitely 
stiff, but their stiffness may vary with operating speeds and applied 
external loadings. The general assumption of "small deflection" is 
used in this study such that the shaft is linearly elastic with 
applied loads. This assumption is valid for most rotor systems as 
the deformation of the rotor is always quite small in comparison 
to the shaft span, but it may not be accurate for bearing force cal- 
culations when the rotor motion is relatively large. When large 
rotor response occurs at the bearings, nonlinear bearing forces have 
to be incorporated in the system for accurate forced transient 
response analysis. 

In general, a typical rotor system may consist of multiple 
bearings, and the rotor shaft may have disks or impellers located 
inboard or outboard to the main bearings. Special characteristics 
may include unbalances in the disks and impellers, skew of the 
disk to the rotor shaft, and mechanical bow of the shaft, which may 
be considered as part of the external forces acting on the rotor. 


II 


2.1 General Equations of Motion 

In deriving the general equations of motion for a multimass bearing 
system, the rotor is divided into discrete mass stations such that the 
dynamics of the rotor system can be represented by forces and displace- 
ments at the mass stations. The rotor section between two consecutive 
mass stations is assumed to be massless while the weight of the rotor 
element is lumped at the two mass stations at each side of the element. 
Bending moments are assumed to vary linearly along the element using 
the "small deflection" assumption. 

The general equations of motion for a multimass rotor system can 
be obtained by summing all the forces and moments acting at the 

4 . 

station of the shaft. The forces and moments acting at the i station 
may generally be composed of shaft elastic reactions, unbalance forces, 
inertia moments, shaft mechanical bow reactions, bearing or seal forces, 
or other external hydraulic forces acting on the system. A schematic 
of the forces and moments acting at the i t ^ 1 station in the x^y plane 
is shown in Figure 2.1# The forces and moments acting at this station 
are represented by 


V 


R 

i~ix 


shear force acting the right end of shaft element i- i (left 
side of station i) in the x-direction 


^ L = shear force acting at the left end of shaft element i (right 
ix 

side of station i) in the x-direction 

m ^ = inertia force of the concentrated mass at station i 

i i 




Figure 2.1 FORCES AND MOMENTS ACTING AT ROTOR MASS STATION IN X-Z PLANE 
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F. (x, y, x, y) ■ bearing forces ueting at station i in x-direetlon 
ox 

m i°L cos (ut + + us in (tot + ot^) ] « x-direction unbalance 


force at stations i 


:L [33] 


F (t) ■ external force in x-direction at i*'* 1 station 

x 

x “ moment acting at right end of (i-i) shaft member (left side 
of i fc k station) 

L t ti 

“ moment acting at left end of i shaft member (right side of 

t h 

i station) 


l U*L 


moment due to angular acceleration at i^’ station in x-s planes 

th 


I j.V'S "• gyroscopic moment at i station in x-t plane 
* t ll 

Si . ■ moment at i station in x-z plane due to rctor acceleration 

pi 

T (I - 1 ) [(o' cos (10c + d|) + us in (ut + ■ moment at i C ^ 

P t ,L 

station in the x-s plane due to disc skew 


* • • t 

M. (x, y i t$* tjf, x, y, d , tji) * moment due to tluid film bearing forces 


Figure 2.2 represents the translational and rotational displace- 
ments of the i fc k shaft element (located between mass stations i and 
i+1) and their displacements are represented by 

C ll 

Xj " total displacement in x-direction at I station 

C ti 

x * elastic displacement in x-direction ac 1 station 
e i 

Xji " residual (mechanical) bow in x-direction at i C ' station 
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0^ 3 total rotation at i tl1 station (x-z plane) 

m total rotation at i fc ^ station (y-z plane) 

tih 

0 ei * elastic rotation of shaft at i station 


di 


rotation at i * station due to residual bow 


th 


T = permanent disk skew at i station 

T-jj = T COS 3 

T ” T sin ft 

y 

The basic equations of motion can now be obtained by summing the 
external and inertia forces and moments in figure 2.1. Thus: 

1. Summation of forces in x-direction 


Vi + V ix " V i-ix + F bx (X ’ y * 9 ’ ^ *■ y ’ ^ = F xi (t) 


( 2 . 1 ) 


2. Summation of forces in y-direction 


Vi + v iy " v i- iy + F by (x * y. 0. v* y» - * vi <o 


th 


( 2 . 2 ) 


3. Summation of moments at the i station 


+ + M i->* - + \x <*• 9 ’ *• y. «• « 


M ft) 
xi 


(2.3) 
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I 


ti 




i 


V“ 


+ M 


R 

i-iy 


M. L - hi 4 W0 + M. (x, y, 0 1 X, y, 0, $>) 
iy pi °y 



(t) 


(2.4) 


The total system equations of motion may now be obtained by 

substituting the relationships for the unbalance and external forces, 

bearing forces, and elastic shaft moment-shear deflection relation- 

til 

ships into equations (2.1) through (2.4) for the i mass station 
th 

and summing the i station equations. The generalized shaft 

stiffness matrix [k ] is a function of the assumed boundary conditions 

x 

R R L L 

which are normally taken to be free-free (V = M = V„. = M., = 0) . 

0 o N N 

If the external forces and moments are due to the unbalance 
of the rotor and the skew of the disk, then 


F *i (t) \ [ , 

cos (ait + a ) 

sin (ait + a ) 

• 1 * 


} = M e { oT 


+ to * 


F .(t) j 1 I 

sin (uit + a.) 

1 -COS (tot + 01.) 


yx j [ 

1 

L 1 J 



(2.5) 


f 



(t> ] ( , 

cos (tot + 3^) 


sin (tut + g ) 




+ 0) 



(t) ( 1 P C 1 ] 

sin (ait + 6,^) 


-cos (ait + 3^) 

J 

/ * 

. 


— 


( 2 . 6 ) 


where a. and (3, are the angles of the unbalance and disk skew with 

i 1 

respect to the shaft and reference mark. The shear and moment rela- 
tions are given as follows (see Appendix B) 
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T R 

V L = V 
ix lx 


®,[ 


2X e i + 6 eiV ZX ^+ 1 +e .l+l L i . 1 (2 * ?) 


] 


m k 


- 29 ,L + 3X ... - 9 L 
ei i ei+1 ei+1 


■] 


( 2 . 8 ) 


M J R « L V . L + M, L 
lx i ix ix 


(2.9) 


In terms of total deflections and residual deflections, equation (2.7) 
and (2.8) can be written as 


R 


V. - V. 
ix ix 


6EI 
L 3 /i 


2X + 0 L - 2X, + 6 

i i i i+l i+l 


i+l L i j 


6 '3; i ! 2x di + e di L i- 2x di+ 1 +e di+i L i 


(2.10) 


M L = (— \ -3X - 20 L. 

ix \ l 2 A L 1 11 


+ 3x i+l - 9 i+l L 


i 



-3X, . - 20., L. + 3X - 9 . . , ,I> 
^2 L I di di i di+1 di+l 


.] 


( 2 . 11 ) 


M 


ix 



] 


3X + 9.L. - 3X , + 20 L 
l 2M i ii i+l i+l i 


3X + 0..L. - SX..^. + 29 L 
di di i di+1 di+1 



i 


( 2 . 12 ) 





In finite element theory, a right-hand coordinate system is used such 
as shown in figure 2.3. With this coordinate system, the shears and 
moment are given by 


i 



The stiffness matrices in equation (2.14) and (2.15) represent 
the generalized element stiffness matrix for a beam, which are 
derived from first principles [67, 6 8] . The bearing forces can 
be expanded, and if a linear bearing is assumed, then in matrix form 
the bearing forces and moments are given by 
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Substituting the above relationships into equations (2.1), (2.2), 
(2.3) and (2.4), the system equations of motion can now be written in 
matrix form as follows: 


Cm] |u‘j + [c] |u| + [k] |u| - |F(t)f + Ck s ] |u d } 


(2.17) 


where 




and 


[M] 


[m] 0 0 0 

0 [I t ] 0 0 

o o [m] o 

0 0 0 [i t ] 


The damping matrix can be decomposed into the gyroscopic and bearing 
damping subraatrices for future convenience as follows 


H ■ 


0 

0 

0 

0 


l"c 0 

['c Q 0 

['c .] 

t'vf 

0 

0 

0 

C"wi J 
p 

+ 

[ ' c 0 X d 

X0 J 

C' c ee^ 

[ 'V ] 

0 

0 

0 

0 


['C „] 


[ ' c yy' ] 

[ ' C y»' 

0 

l'-ul J 
p 

0 

0 

G 

["C. .] 
U ij* J 


t'V 3 

t'c W ' J 


* - > "4JW- ■■fr-.vvMtf.;.-'? . 


( 2 . 18 ) 
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The general stiffness matrix may also be decomposed into three 
submatrices representing the symmetric shaft stiffness matrix, the 
linear bearing stiffness matrix, and the skew symmetric acceleration 
matrix as follows 



V 

1 — > 

X* 
CD 
* — 1 

0 

0 


[k ] 

XX 

i — i 

CD 

** 
I p 

1 — l 
L. J 

V 

V 

n 

CD 

CD 

i i 

0 

0 

i , 

i — i 

X 

O 

t — i 

r — i 

CD 
CD 
t — 1 

V 

V 

0 

0 

V 

1 — 1 

CD 

X 

& 
t j 

"T* 

t — l 
t — l 

V 

[K ] 

yy 

■=y 

t i 

0 

0 


ri 

CD 

t — 1 

c 

l — i 
i— j 

i — i 

CD 
I — t 

V 

V 


+ 


0 0 0 
0 0 0 
0 0 0 




( 2 . 19 ) 


For free-free boundary conditions, 
are given by (see Appendix B) 


r 



0 0 0 


the shaft stiffness subraatrices 



0 

0 ] 


0 

0 

•E 

E +E 

-E 

n~2 

n- 2 n-x 

n-i ; 

0 

-E 

E I 


n-1 

n-i 




Ul I K— * 


EyLl “E1L1+E2L2 ^ 2 l 2 


0 


0 




-E L 

n -2 n< “2 


••E L +E L 
n -2 n- 2 n- I n “l 

-E L 
n~i n-i 


E L 

n-i n-i 

-E L 
n-i n-i 


2 E l L t e x l i 


E 1 L I 2E l L ; +2E ; !j 2 


E 2 L 2 0 


E L 
n-2 n - 2 


2E L 2 +2E L 2 E L 2 

n-n n-j n~i n~i n-; n-i 


0 


E L 

n -1 n-i 


ZE L 
a* l *i-] 


where E. 
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2.2 Illustration of Equations of Motion for a 3-Mass Rotor 

In order to illustrate the development of the generalized 

equations for an arbitrary N-mass rotor system with the appropriate 

boundary conditions, a derivation is applied to a 3-mass rotor as 

shown in figure 2.4. This model consists of a skewed disc in the 

center of a flexible shaft supported by two linear bearings. The shaft 

has a mechanical bow of x. at the disc location while x. and x. 

d 2 di d$ 

at the bearings are assumed to be zero. 

Summing the forces in the x-direction for the left bearing 
station (station 1), equation (2.1) can be written as 


m X + C 1 X, + C 1 Y, + K 1 X. + K 1 Y, + - V* - F . (t. 

11 xxl xyl xxl xyl 1 0 xl 


( 2 . 20 ) 


Equation 2.20 can be further expanded assuming.^ = 0 


" 1 • 1 1 1 /l’El 

mX, + C l x, + (T Y, +K Xv+K Y- + /— “ 


, ^ A, 1 ^ i t a. A,- 1 l. i 

11 xxl xyl xxl xy 1 \ iP 1 


CX, - x > 


+ 7 T < 9 1 - V ‘ ^ «2 - V + 7 T (9 2 - e d 2 > 

L i h L i 


)• 


0 ( 2 . 21 ) 


For station 2, the summation of forces at x-direction gives 



+ V 


2x 




(t) 


( 2 . 22 ) 


^Superscripts in bearing coefficients indicate station numbers . 




and by substituting the shear-displacement relationships, equation 
(2.22) becomes 


m 2 X 2 + 


12EI ( v , 6EI ,n - fi . 12EI , 

(X 2 x d2 ) + — (0 2 e d2 ) - — (X 3 - x d3 ) 

L 2 L 2 L 2 


+ 7^ e 3- V 

L 2 


HI 


1.2.EI (r _ . , 6EI „ A 12EI ty 

' x i X di> + 72 < e i - V - TT (X 2 

L 1 L 1 


6EI 


x (9 - 9 ) = m„e or cos (tot + a,) + tosin (tot + a.) 

jL 2. d2 £ L L L 


(2 


Similarly, the summation of forces at station 3 gives 


in X„ + V, L - V* = F . 
3 3 3x 2x x3 


where V„ * Q 
3x 


r 


12EI 


m 


3 *3 + C Lh* H + H x 3 + '4y V L"T X 2 " X d2 

L 2 


+ ^ ( e 2 

L 2 


6EI 


- ««) - ^ ( X 3 - X d3> + *5 ( 9 3 ' 


7 d3 


>] 


The moment equations are obtained by summing the moments at each 
individual station. At station 1 assuming no gyroscopic or bearing 


moments 
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M* - - 0 (2.25) 

or 



<2*26) 


at station 2, the moment equation is 

- M 2 + = M ? (t) (2.27) 


or Equation (2.24) can be expanded with the following form 


— ( X - X f ) + — (0, -0 ) - 6EI 


L I* 


2 v rt l A dl 


1 dl' 2 ' d2 


(vu+- (e 2"V 


( x 2 - x d2 ) - (e 2 -e d2 ) + 2 ( x 3 - x d3 ) - (e 3 -e d3 ) 

L 2 L 2 L 2 L 2 


+ I t2 0 2 + 0) I p2 + 1/2 wl p2 'i»2* T ( I p2 “ X t2 ^ ^ w2 cos(ait'}-& 2 )+ uisin (wt-f(5 ? )j 


(2.28) 
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The moment relationship at station 3 is similar to station 1 and 
can be written as 


M L = M R »0-El(x +L^|2.- x +-| 10 

2 2 \ e 2 2 3 ©3 J 2 ©3 


0 


) 


(2.29) 


Combining the three force equations and the three moment equations, 
the equations of motion for the x-z plane can be written in matrix 
form as follows 


r 

m 


0 
m 

i 

0 m 

0 0 

0 0 

0 0 


0 ’ 
0 


0 

0 

m 

0 


~x 1 
1 


F- 

c 1 

xx 

0 

0 1 
1 

0 

0 

m 

0 


f“* •> 

X 

1 

0 

0 

0 


x* 

2 


0 

0 

0 1 
1 

0 

0 

0 


X 

2 

0 

0 

0 


X 

_ 1.. 


0 

0 

c 3 1 

_ 

0_ 

Q_ 



1 

i 

0 

0 

0 


e 

i 


0 

0 

0 i 

\ 

0 

0 

0 


0 


0 


0 i 
2 
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0 

0 1 

0 

0 

1 

0 


9 

i 

0 

0 

0 


t 


0 

0 

l 

0 1 

0 

0 

0 

1 

0 

- 3 - 


2 E 

1 

- 2 E 

l 

0 

E L 
1 l 
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1 1 


0 " 


~X - 
1 

*d» 

- 2 E 

1 

2 E + 2 E 
1 2 

- 2 E 

2 

-E L 
1 1 

-E L + 
1 l 

E L 
2 2 

E L 
2 2 


X - 
2 

*d 2 

0 

- 2 E 

2 

2 E 

2 - 

0 

-E L 


-E L 
_ 2 — 2 _ 


X - 

_ _ 3 _ _ 

X. 

■a 3 

E L 
1 1 

-E L 
l l 

0 

? '£ L 2 
3 1 1 

{EL 1 
3 1 1 


0 


0 - 
l 

®di 

E L 
l l 

-EL + E L 
11 2 2 

-E L 
2 2 

-EL 2 
s l 1 

2 -E L 2 + 

3 1 l 

-E L 2 
3 2 2 

lE L 2 

3 2 2 


9 . " 

9 d 2 

0 

E L 
2 2 

-E L 
2 2 

0 

3 E L* 

3 2 2 


-E L 2 
12 2 


0 - 
3 

9 d, 


} ■ i 


i i 
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2.3 Direcc Method of Solution 

In order to illustrate the use of direct method of solution, the 
three-mass rotor model discussed is used as an example. To simplify 
numerical computations, the 12th order system as illustrated by 
equations (2.30) and (2.31) can be reduced to a 6th order system by 
Guy an reduction. For example, if there are no transverse moments or 
products of inertia in the system (no rotor gyroscopic or disc skew 
effects), equation (2.30) can be written as 


nm m M 


r 


r 


r h 


r~ 



r *■ 

[m] 0 


<*> 

+ 

[c j ° 


(x) 


t — i 
t — i 

i — i 

* 
t — t 


<* - x d ) 

o * 

O 
1 




t 

o 

o 


(6) 


i — i 

X 

CD 

« — » j 

^ k eel. 


„<« - V- 


■f 




"(xf 


^ C xy^ 0 


~(y)~ 


(9) 


O 1 
o 




+ 




"(y)~ 


mm 

(F ) 



a 

X 

J 

MO 


(0) 

kp* ■. 


(2.32) 


and the moment equation can be extracted by 


Ck 0x ] <x " x d } + (0 - V " 0 


(2.33) 


Assuming L » L , E * E and using Guvan reduction 
12 12 


00 <*> + t C xx ] W + [ [k KX ] ■ [k x9 ] [k ee ] t k 9x ] J <!t - V + [C xy ]CS,) 

C K xy3 W * <V <2 ' 3 

or written in full matrix form as 



• /me 


[u J co«(ut - a) + usin(ut -a )] 




( 2 . 
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In the set of equations of motion of equation (2.30) and (2.31), 

there is a disc effect only at the center station. Therefore, the 

equations of motion corresponding to 9 , 6 and iji , (|> mav be eliminated 

13 13 ' 

by expressing these quantities in terms of the other station displace- 
ment and rotation coordinates. 

Using the boundary conditions, equations (2.26) and (2.29) where 
L R 

M ^ » M ^ *0 yields the following relationships 



(2.36) 


(2.37) 


There is a corresponding set of relationships for the iji and i|i 

e\ ej 

coordinates . 

By the substitution of these relationships Into equation (2.30) 
and (2.31), the 12th order system is reduced to an 8th order system 
with equations In the x-z plane as follows 
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E + E 
1 2 


0 I E L 

/ 1 1 


1 -E L + E L 
I 11 2 2 


■E L + E L 
11 2 2 


•EL I E L 2 + E L 2 
2 2 * 11 2 2 



0 I 0 

I 

0 I 0 

K 3 | 0 

XX _ 

"olo 



0 j 0 
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C 3 I 0 
XX . 1 _ 

0 ' 0 



0 I 0 

K 3 ^ 0 

_xyj 

0 < 0 _ 



m e [w 2 cos(u)t + a ) + disinCut + a )] 
2 2 2 2 


T(I -I ) [u) 2 cos(ait +0 ) + wsin(ait +0 )] 
P C 2 2 2 


35 


Since the above equations of motion are uncoupled in the rotor 
mass matrix, the transient response of the system can be calculated 
by direct integration of the rotor acceleration, which is 
given as follows 



(cot + a ) + to sin (tot + a )] ) 
2 2 
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- 
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r t "1 


K 1 



-SL 0 0 
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1 



0 0 0 
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0 0 K * v 


Y 

3 1 

M 



L 3 J 




(2.39) 


Transient response analysis using direct integration of equations 
of motion has been extensively investigated by Kirk [33], Shen [34], 
and others [35 - 38]. This direct approach has been shown to be 
very effective in analyzing simple rotor systems. In the case of 
large complex rotor bearing systems , the use of this direct method 
is very inefficient and time consuming due to the large number 
of equations to be solved. The use of modal transformation 
[39 - 55] in reducing the number of equations of the system has 
been found to be very satisfactory. The use of modal transformation 
in rotor-bearing systems dynamic analysis will be discussed in the 
following chapters. 

The above application of the general equations of motion to 
a 3-mass rotor model provides a deeper understanding of the effects 
of unbalance > disk skew, shaft bow y rotor acceleration, and 
gyroscopic moment, which cannot be easily visualized in the modal 
equations of motion after the transformation. 


37 


III. METHODS OF MODAL ANALYSIS 

In the case of simple rotor systems, the dynamic behavior of the 
rotor may readily be obtained from solving the rotor equations of 
motion directly [33, 34, 3 5 ]. However, this may not be the case for 
a more complex system or rotor system with a large number of mass 
stations (e.g. over 50 mass stations) , particularly in the analysis 
of rotor transient response of the system. The integration of large 
numbers of equations of motion are very time consuming [33, 34, 35] 
and may lead to serious numerical problems. A more efficient way to 
compute transient response of the rotor system suggests to be the 
modal approach. Using modal analysis [39-551, the number of equations 
of motion can be greatly reduced (depending on the number of modes 
necessary to accurately approximate the system) to lower the computa- 
tional costs and to avoid certain numerical problems encountered in 
the integration of the direct equations of motion. As an additional 
bonus, unbalance response and stability of the rotor system can be 
obtained with a small additional effort. The use of the modal 
approach in dynamic analysis has been extensively investigated and 
can be divided into three major categories as in the following sections. 
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3. 1 Uncoupled Modal Analysis 

The linear equations of motion for an N-degrees of freedom system 
in matrix form can be written as 


Cm 3 {x} + Cc3 (x) + DO {x> = (3.D 

For a circular shoft with symmetric supports if the generalized 
displacement (x) is measured from a fixed point in space, it can be 
shown that the mass matrix Cm3 and stiffness matrix DO are symmetric 
matrices [50]. These are the basic assumptions used in the derivation 
of the orthogonality conditions of the undamped mode shapes. With 
these orthogonality conditons, the mass matrix [m] and the stiffness 
matrix £k 3 in the matrix equations of motion (3.1) can be uncoupled 
such that the modal response of the system can be solved by direction 
integration of the modal accelerations. 

The general equations of motion for a multimass rotor including 
disc gyroscopic effects and generalized bearing properties of stiffness 
and damping produce a set of equations in which the total stiffness 
and damping matrices [k] and [c] matrices are symmetric. 
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3.1.1 Orthogonality of Normal Modes 

In the calculation of normal modes of a system, free vibration 
of an undamped system is assumed. Equation (3.1) can be written in 
undamped free vibration form as 

CM3 {X} + 00 {X> - {0} (3.2) 

Assuming harmonic motion for the system such that 
iut 

X • Ae 

and 

X = ~ urx 

Then, equation (3.2) can be reduced to a standard eigenvalue form as 
the following 


Qxr 1 do - » 2 1 cm] <v = o (3.3) 

in which tu is the ith critical speed of the system and {y.} is its 
corresponding normal mode. The normal modes, or the eigenvectors of 
the system, can be shown to be orthogonal with respect to <*he mass and 
stiffness matrices as follows. Equation (3.2) for the ith mode can 


be written as 
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Cm] + [it]} { Yi > » o C3.4) 

T 

Premultiply by { Y ^ } 

{Yj > t [k] { Yi } - m 2 ± (y^ Cm] { Yl > = 0 (3.5) 

th T 

Premultiply the equation of j c mode by { Y ^} with the result 

iv.} T Ck] { Y .} - to 2 . { Y } T Cm] { Y .} - 0 (3.6) 

JJi J 

If the stiffness matrix K is symmetric such that 

(y h } T Ck] (y.) = (y.} T Ck] iy.) (3.7) 

i 3 3 1 

Equation (3.5) and (3.6) can be reduced to 

(oi, 2 “ w. 2 ) {y . } T Cm3 iy. } = 0 (3.8) 

i 3 1 3 

Thus, the orthogonality conditions are 

(y/ Cm] (y^.) * o , i ^ i (3.9) 

(y.} T Ck] { Y } - o , i 4 j (3.10) 


Now a sec of orthonormal modes is defined such thaC 



Cm] (fj) 



i * J 
i - j 


Thus 



can be calculated as 




Cm] { Yi ) 


( 3 . 


(3.1 


Substituting the above relationships into equation (3.4), we have 


{4' i > T Ck] U } 



i * j 

1 - J, 


(3.1. 


which are the orthogonality conditions for the orthonormal modes {i|> } 






i 4J ii3*.YT9]> £“V ~ 


The general assumption used in modal analysis is that the general- 


ized displacements of the system can be represented by a linear 
combination of the mode shapes (or eigenvectors) of the system. In 
this analysis, the generalized displacements are discretized into mass 
stations which can be represented by a set (or sets) of discretized 

orthonormal modes C$1! as 

n 


{X(z, t)> 


2 


q.(t) {^(z)} 


(3.14 


Using this representation, equation (3.1) can now be transformed into 


Cm] M {q(t)> + Cc] M (q(t)} + Ck] M (q(t)} = {f(t)} 


(3.15) 


where 


C$] a C{$ {$ >.• ...» U }] 

1 2 3 

fq (t)^ 

q (t) 

2 

and (q (t) } / 
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Equation (3.12) is then premultiplied by Dj>3 


T 


as 


W T Cm] M t (q(O) + of Cc] M {q(t)) + of Ck] M tq<C>l 

a 

- M X (f(t)} (3.16) 


Using che orthogonal condiCion of (3.9) and (3.10), we huve 

D>] r Cm] CO - C'iJ (3.18) 

M t Ck] C*D =■ Ca] (3. is) 


where Ca] is a diagonal matrix composing of the squares of the undamped 
critical speeds w^. Thus equation (3.16) can be simplified as 


q^t) 


n 




(t) + (0^2 q t (t) 


F i (t> 


for i ■ 1 , 2 , ... n 

(3.19) 


where 


c 13 - <♦/ [c] Uj) 

F i - U ^ 1 l F ( C ) ) 


It was shown by Caughey Q543 that if Cc3 is linearly proportional 
to Cm 3 and C^3 or 


Cc] Cm]- 1 [k] - Ck] Cm]- 1 Cc] 


(3.20) 


Then Cc3 can also be uncoupled by the normal modes as 


T 0 i * i 

W {* ) 


j 


(3.21) 


l C i . 1 " J 


Using this orthogonality condition, equation (3.19) can be written 
as 


q i (t) + C ii q^t) + u^ 2 Ct) - ? i (t) for « 1, 2, ... n (3.22) 

This assumption uncouples the modal equations of motion which are 
relatively easy to analyze but often not accurate for turbomachinery 
with fluid film bearings or seals. Bishop and Parkinson C273 used 
this approach of proportional damping in their balancing schemes. 
However, this procedure fails when large damping is presented in the 
system. This justification will be verified in the next chapter. 
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3.1.3 Damped Natural Frequencies and Forced Response of Uncoupled 
System 

Using the assumption of proportional damping, the modal equations 
can be reduced to the standard form £27, 48] as follows 


4* 

q i + 2€ i“i^i + w2q - F 
1 111 I i j 


where 


ii 

E, - — — = modal damping ratio 
1 C ci 


C c ^ = critical modal damping for the i 1 ** 1 mode 


Assuming a solution of the form 


\ £ 

q = A e , X = Complex eigenvalue 
i i 


the homogeneous solution yields the complex eigenvalues 


X , = p. + i w, . = - Em. + iw. y/l - E 1 

l 2 x — d-i i x i j. 


(3.26) 


where P^ is the growth factor and is the damped critical speed. 


■ i- .. Vv>i , "C. 


*■■■**%■;■ t- ; : ' 
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If is a sinusoidal forcing function due to unbalance, a syn- 

chonrous response solution is easily found. It can be shown that the 

peak rotor unbalance response does not occur at the undamped critical 

speed to or at the damped critical speed to,, but at a speed to given 
i di ui 

by similar to that for a single mass rotor. 



_L 


(3,25) 


or if the complex eigenvalues for the damped system are know 


0 ) 

ui 





(3.26) 


The rotor amplification factor for the peak rotor unbalance response is 
given by Cl^l 


A , » r (3.27) 

ui 2? i v 1 - 1^2 


or 


. “di * p i 2 
ui - 2p i“di 


(3.2S) 
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Therefore, it is seen for the case of the uncoupled modul analysis 
that if the modal damping or complex eigenvalues can be calculated and 
the damping is proportional, then the speed at which the maximum 
unbalance response occurs can be predicted along with the rotor ampli- 
fication factor. 

Although the above equations for the prediction of the rotor peak 
unbalance response speeds and amplification factors provide insight 
into rotor behavior, for realistic turborotors with fluid film bearings 
and gyroscopic moment coupling, the modal equations of motion cannot 
be simply uncoupled, as Bishop and Parkinson have done, L27, 4Sj, but 
the modal equations must be simultaneously considered for both the 
x-z and y-s planes of motion as Childs £40 - 44 "] or Lund C51j has demon- 
strated. The general coupled modal analysis to determine the stability 
of the damped natural frequencies (eigenvalues) is discussed in the 


following chapters. 
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3.2 Modal Analysis Using Damped Modes 
3.2.1 Reduction to Standard Form 

Another approach to uncouple the equations of motion of a damped 
system is the damped modal analysis [39, 51], In order to apply the 
damped modes of the system, the set of equations of motion in (3.1) 
has to be reduced to standard form. It is assumed that the dis- 
placement vector (X) may be represented by 

{X} * (A) e Xt (3.29) 

such that 

&} = X{x> = (P + iw d ) ft) 

In order to solve for the eigenvalues of the system and develop the 
orthogonality conditions for the general damped rotor, the system must 
first be reduced from a set of N coupled second order differential 
equations to a set of 2N first-order equations. This can be done by 
adding an equation of the form 

' ft) = 0 


into equation (3.1) which gives 
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'CM3 CO] 
[o] 03 


x 


[C]LK] 


C-i] Co] 

>— ■ 




(3.30) 


Then equation (3.30) can be reduced to a standard eigenvalue problem 


DC CO] 


”cc] Ck] 


■ (v> + 


Co] Ci] 

Ih tan 


:-i] coj 


{V} = 0 


(3.31) 


or in another form as 


Co]' (v> - Hv} = o 


(3.32) 


where 


CD] 


[-M _1 C] C-M _1 K] 

.Cl] CO] - 


The iteration of equation (3.32) for the determination of the complex 
eigenvalue will converge to the highest eigenvalue of the system. 1 7 
the eigenvalue problem is formulated with the inverse matrix of Cd] , 
the iterative procedure of Hurty and Robersteln C67] will converge 
to the lowest system eigenvalues. 
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3.2.2 Orthogonality of Eigenvectors 

Solving the eigenvalue problem in equation (3.32), there exists a 
set of eigenvalues with their corresponding eigenvectors which will 
satisfy the following homogeneous equations. 


- x i ra ] hi}-° 


(3.33) 



is the complex eigenvector of the'ith inode for the damped system. 

In order to derive the orthogonal conditions for the damped 
eigenvectors, the transpose of the matrix [d] is considered. In 
general, [d T ] is not equal to [d] but |d T | = |d| ; that is, the deter- 
minant of the transpose matrix is equal to the original matrix. 

Let t|» . satisfy the equation 



(3.34) 


where 



is the left-hand eigenvector of the ith mode. 
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To develop the orthogonality condition, multiply equation (3.33) 
by the transposed left-handed eigenvector, | , such that 

or by expanding out into 

W = 0 <3 - 


Similarly, premultiply equation (3.34) by the transpose of 
which becomes 

{»dif ™ T {* dl }- ^ (3.37, 

Taking the transpose of equation (3.37) and subtracting equation (3.36) 
results in 

(3 - 38> 

Thus, the orthogonal condition can be stated as 

m* {m + { ? «r m - » ** * * * <3 - 39 > 


or 


•• -*t -s* ; 5-^.. T tr '• WWi i 1 * ™ 1 
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0 , for i H 


(3.40) 


Thus , the left handed eigenvector generated for the j th mode is 
orthogonal to the right vector of the ith mode. This represents the 
most general case of orthogonality for an arbitrary unsymraetrical [d] 
matrix. 

The above developed orthogonality condition can be further 
expanded for general use. Note that 



$ 


di 

di 


where i|>,. is of the order 2N where <*>,. is of the order N. Assume $ 
di di 

satisfies the equation 


[\ + \ C + K 

Li i 



= 0 


(3.41) 


and that <J>_. satisfies the following equation 
di 

rx j 2 u' r + X.C T + K T ]^ di = 0 <3.42) 

Taking the transpose of the above and pre multiplying by hKJ 



\ 2 :: 4 v + K ] h+di * 0 


(3.43) 
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-.s.-T’XT-ar’, : -s * ., r- r * r. r^Ti 


— T 

Postmultiplying equation (3*41) by \ $ gives 

J d J 


l+X) [ X i 2M + V + K ] *di ■ 0 


(3 . 44) 


Subtracting equation (3.44) from (3.43) we obtain 


[M] ^i ( A j - A i) + ( A i - A j) ♦d’i w *di 


(3.45) 


Dividing out the constant X - X , we ootaln 

i j 


7 t 

dj 


(\ X.M - k\ 

K 1 3 ) 


^i = 0 


(3.46) 


*r 

Eliminating ij> * [KJ$ . from equation (3.43) results in 
dj di 


(» ± + [♦£ M+di] + *d: 


(3.47) 


When i * j, the above orthogonality condition equation (3.46) reduces to 


W ■ K i 


(3.48) 


where 


M t ’ & [ M ] * 


di 
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K = T !Y| * 

i ai [ J <ii 

And the orthogonality condition of equation (3.47) reduces to 

C = -2A M (3.49) 

i i i 


where 



3.2.3 Forced Response Using Damped Modes 

Modal response of a complex system using damped modes has been 
extensively investigated by Foss L39l and Lund C5l]. The general 
equations of moclon in (3.1) are uncoupled and solved independently. 

To uncouple the equations of motion, they are reduced to the standard 
form from equation (3.1) as (note that this form is somewhat different 
from tne formulation of equation 3.31 such that the symmetry of the 
matrices is retained if Cm], Cc] and DO are symmetric) 


DO {V} + CB] {V} = {F(t) ) 


(3.50) 


where 


M- 


Co] 

Cm] 

Cm] 

Cc] 
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no: 





{V} 


{X} 

(x> 


The orthogonality conditions are similar to equation (3.47) as 


{\ - \) W CR] 1*4 


= 0 for i r j 


and 


fdi) T [»i“ + W] j*J - o , 


for i 7 s j 


(3.51) 


(3.52) 


In modal analysis. It is assumed that the 2N vector { V } can be 
expressed by a combination of the modes as 





(V} 


(3.53) 
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Substituting equation (3.53) into (3.50) and premuliplying by 
gives 



{♦«} + ( ? di) T » 




* l*di) T 


(3.54) 


Applying the orthogonality conditions in equations (3.51) and (3.52), the 
above matrix equation can be uncoupled into 2N equations of the form 


R i V c> " Vi V 0 ■ {"'di} 1 ( F(t> ) 

** V c) ■ R i* q i (0 " { ^i 5 T (ho) 


where superscript * denotes the complex conjugates and 
ir )T 


(3.55) 


(3.56) 


\ * hi) M ( 4 'di) 

“i ■ V 1 Cs] { v ■ h 


ox expanding out the matrix to obtain R , which is a complex number 


\ * **i l*di) T M {+ di } - {* di }‘ Cc] (* dl ) 


T iT 


(3.57) 


In the case where the mass matrix [[M], the damping matrix CC3 and the 

stiffness matrix DO are symmetric, the left-hand eigenvector j $ 1, 

i d i ' 

equals to the right-hand eigenvector j $ | , then 
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R i ■ i*dif + Cc]] j* dl [ 


(3.58) 


The forced response of the system can be evaluated by the 
decoupled equations in (3.55) through the use of the convolution integral. 


2N T r T 

!v(t) f ■ & t / * xil 


i(t - T) ( 


^di } 1 t F(r) i dT 


u 

r di{ 


(3.59) 


or 


r x 


dT 


im 


If f(.t) is a sinusoidal forcing function such as unbalance forces chat 


jciO}- *» jme| u) *’ 1 


iojt 


(3.61) 


then 


2N 


X(t) 


z f r <= 1 

iTi K ± J 


1 . (t - t) 


*5 IwT , 
U, a)-e dt 
i 


i^dii 


(3.62) 


where 
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where 


u i ■ kJ T { ma il 


jmej = mass eccentricity vector of the system 


For zero initial conditions, the convolution integral can be 
integrated to give 


j«t>| - 2 j 

L : * t t " 

il V e 1 

i - 1 

R. 

i 

i 1 


-A . I 
1 


" 1 


(iw ~ 




U*<i) 2 \ t 

+ e 1 

R i* 


-^*C + i<jt 
e 1 -1 

TT 


(iio - \ ± ) 


t . * > 

i + dif 


(3.63) 


where the upper superscript * designates the conjugate of the variable. 
If t is very large, the transient response goes into steady state where 


N 


jx ( t)| - 2. 


i - 1 


U U !*■ XtOt u ^ ^ 

R^~ (i0) “TT^y j tf> dil + ^*“(110-^*) rdit 


U * iwt 


(3.64) 


For zero or small damping, the following values are valid. 


X = im 
i i 


X* , a -ill) , 


hi! - hi! * hi • tu ■ hi! 




59 


- |Y J T CM]jY j “ modal mass for undamped system 


R ■ 2 u M , R * ■ -2 « M 
i i i i i i 


T 

u = {X^ } {m^e^} 


U. 


E «-i ■ modal eccentricity for the undamped system 


Thus 


, i 102 ^ 


or 


( x<t >) ■ L M 


i - 1 


where 


(3.6i 


(3.6i 



Note that equation (3.66) is just the equation for modal excitation 
of an undamped system. If we define the modal amplification factor 


to be A, such that 
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(X) 


N 

i5i A i\ ( T i) 


(3.67) 


then 



( 3 . 68 ) 


which goes to infinity when f_^ equals to 1 or to “ ^ • Similarly, for 

the lightly damped system, assuming = ff * the modal amplification will be 


\ 


R (iw - * ± ) R t *(iu " 


( 3 . 69 ) 


Applying equation (3.28) to (3.69), the modal amplification of the 
system at resonance speed (to = to ^) becomes 


A • " to . “M . 
tn ux i 


- X i> R i* U “ui ‘ V 5 


(3.70) 


Where to is given by equation (3.25) as to . 
ui 


m + P *■ 

di i 


ui >/“di a T i 


Another form of representing the modal equations of motion is in 
the form of uncoupled second order differential equation C29H as 
follows 


1 + 2P. t j + CO J - x = 2Re 

i i i i i 


(tp^ 1 (f(t)} - a* 4 i ) T {f(t)} 1 ' 


R. 



1 n i + 2p i \ + “i 2 n i " 2IM 

1 

i 

where 

i 

T i - ^ + q * (3.71) 

, "i ' - * 1 *> 

} 

i 

r The above equations are a more efficient way of modal representa- 

tion which involves no complex number calculation in obtaining the 
! forced response solution. 

It can be seen from the above analysis that the rotor equations 

i 

of motion can be decoupled and force response can be calculated from 
integration the modal equation directly. But there are several 
drawbacks of this approach. First, damped natural frequencies and 
mode shapes of a large system are more difficult and time consuming 
to obtain; and secondly, the equations of motion cannot be completely 
decoupled if rotor acceleration and nonlinear bearing forces exist 

j in the system. In this case, the same kind of coupled equations have 

l 

to be solved, and the complex mode shapes in the damped system makes 
j it more difficult. Thus, it may be more efficient to resort to a 

set of coupled modal equations transformed by the undamped modes, 
which will be discussed in the next section. 


(f(t)} - X ± C f Ctr) } 

r ± 
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3.3 Coupled Undamped Modal Analysis 

The use of undamped modes in solving dynamical equations of motion 
has been extensively investigated by Dennis [45 D> Black [463. Childs 
[40[J, Morton [52"], and other researchers. Different approaches have 
been used by these investigators to give satisfactory results. The 
analysis based on using " free-free" modes alone simplifies the 
equation and the modes are relatively easy to obtain, but a lot of 
higher modes have to be incorporated in order to give accurate results. 
A better approach is the addition of two rigid body (rotational and 
translational) modes along with the "free-free" modes. This would 
give better results even when less higher modes are used. The draw- 
back of this approach is that the sets of mode shapes used does 
not provide the designers a real "feeling" of the system. Another 
approach is the incorporation of the "Pin-pin" jointed modes at 
the main bearing in addition to the set of "free-free" modes used. 

This approach will give very accurate results, but the two sets of 
modes, the free- free and the pin-pin, are not orthogonal to each other; 
and thus, further complicating the problem. 

The use of planar modes, where bearing stiffness is incorporated, 
seems to be a better way. The mode shapes calculated can give the 
designer a better "feel" of the bending of the system, and the 
results of using planar modes are in good accuracy even when only n 
few modes are used. A comparison of using the planar modes to the 
free- free plus rigid-V dy modes will be discussed in the next chapter. 
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3.3.1 Orthogonality of Planar Modes 

It is desired to obtain a single set of planar undamped modes 
incorporating an average bearing stiffness for modal analysis. The 
shaft is assumed symmetric, rotor gyroscopic effects are neglected, 
bearing damping is neglected, and only an average bearing principal 
stiffness term is considered. The equations for the planar undamped 
mode shapes are 
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r ^ 


<*) 




(0) 

t* 

F(t) 


(y) 




<*) 



T3 

La — 


— 


(3.72) 


where 



m « 



K 

B + 

K 

. xx_ 

yy-' 


2 


is the average bearing stiffness taken from K, and K, which is 

bxx oyy 

evaluated for a single speed in the operating speed range. 

Eliminating the cross-coupling bearing stiffness and the 
difference in the direct stiffness terms, equation (3.72) becomes 
symmetrical in the x-y, y-z planes. 



0.73) 
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and 




( 3 . 74 ) 

let be the 1th natural frequency of the system and |a^J. be Its 
corresponding orthonorraal mode shape such that 




= translational orthonormal mode 


» rotational orthonormal mode * 



and 



• • ■» ( <f> n ) 

(^iOj ( > ( 4 s a 0 » • • •» ( 


Ca] 


The orthogonality conditions of the orthonormal modes require 


that 


1, for i - J 


m w * i‘«r h w - „ , t , , ; 


(3.75) 


and 



3.3.2 Planar Modal Analysis 

In modal analysis, it is assumed that the response of the system 
can be represented by a combination of the planar modes. Therefore, 
the generalised displacement vector { U } is represented by the expansion 
of the undamped modes obtained from a solution of equation (3.72) as 

m-E 

i 3 1 



where 
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or in another form as 



(3.78) 

T 

Pramuitiply equation (2.17) by -and apply orthogonality condi- 

tion of the mode shapes , the equations of motion can be written into 
a set of compact equations using the Eienstein summation convention as 


q *i + “i V* °IJ q *j + B y q x* D 1J V* - E *i Si ' P i! n.m 


and there is a similar set of equations for the y-z plane as follows 


V “i V C « Si + B iJ V D Ij V z li Si ■ p yi (3.8o) 


and 




Me [a) 2 cos (we + a) + w sia (wt + a)] 


+ (4>[) T t(I - [w* coo 


(wt +0) + w sin (ut +6)] 


0.81) 
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wht *e , C , D , and E are modal cross-coupling terms from 
from disc gyroscopic, bearing c'*?ss-coupling stiffness and damping 
effects* For example, the modal damping coefficient C ^ can be cal- 
culated as 


<3 <V T fcj < V +t ♦/ *3 ,} + ' ‘ *l' )T Cc ex ] ' V 


+ 'S jL } T [C 00 ] (3.82) 

or in matrix form, equation (3.79) and (3.80) can be combined as 


or in 

matrix 

- 



„ x i 

. + 

<q >1 


7 J 

f L 


[c x ] [d x ] 

[D 7 ] [C 7 ] 



<;*>i 

, + 

[b x ] [e z ] 

< 

l ( VJ 


[£-'] [B 7 ] 


Cq x> 

( V 



CM cor .c, d . . 

k> ] 

! 

[0] [A] 1 

(? )’ 

l y 7 


(3.83) 


It should be clear that this general modal formulation is not re- 
stricted to the particular Let of mode shapes obtained by solving 
equation (3.72). Equation (3.82) can now be solved for damped eigen- 
values and eigenvectors, stability analysis, and forced response of 
the system. The solution procedures for them is given in the fol- 
lowing chapters. 
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IV. STABILITY ANALYSIS USING MODAL APPROACH 
4.1 Modal Equations for Stability Analysis 

The stability and damped modes of a multi-mass rotor system 
can be obtained by solving the homogeneous modal equations of 
motion. Using the undamped modes of the system can greatly reduce 
the number of equations to be solved as compared to a finite element 
formulation. The matrix dynamic equation of (3.1) can be expanded 
into homogeneous form as 

Cm] iu) + [ Cc] G + Cc] B J iu) + [0O s + DO B + 0G A ] (u) - o 

14.1) 

where 


LC], ■ Gyroscopic damping matrix 

CcT ■ Bearing damping matrix 
B 

Ck.] * Shaft and bearing stiffness matrix 
b 

CK]„ * Bearing stiffness matrix 
Ck]^ * Acceleration stiffness matrix 

By principles of modal expansion [39-55], the rotor translational 
and rotational response amplitudes can be represented by a summation 


of the modes. That is 


where |q^| and {<1^} ars c i m e dependent vectors. Using the above 
modal expansions, the dynamic equations of motion in the x-z plane 
from equation (3.79) can be written as 




+ S b ] ' 


■CA a ]- 

k 9x ^ ^06 1 


JA S L 



+ 
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To apply the orthogonality condition to the dynamic equations of 

r» iT 


motion, equation (4.4) is premultiplied by 
the following equation 


6 


which leads to 


+ CA 6 3 T Cc 69 3 CA e 3) lq x > + C.^ (i x > + 1 CA f Ck^ - V l>.3 

+ f >V + >V ^ + L S f “m 3 i V 

+ Cc xy D QA e 3 + CA e f Cc x p CA p : ♦ CA 6 3 t [c ey 3 [> e 3 

+ Co m 3 Ca 8 ] } (q y } + ( CA 6 3 T C'»i p .3 Ca # 3 } U y > 

+ {CA e 3 T CK xy : CA e 3 + Ca/ Dc^3 Ca 6 3 ♦ [a/ CK fly l [A a 3 

+ Ca 6 3 i V = 0 <4 - 5) 


Equation (4.5) can be simplified in compact form as 


(q x ) + CC x j (q x ) + CK x 3 (q x ) + CD^3 (q^) + [CM^l (q y ) + [E x j (q y ) “ 0 
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There is also a similar set of equations corresponding to the y-z 
plane for the stability analysis of the system. Let 


<y - cq x ) 


Xt 

e 


and 



Xt 

e 


such that 


(q^) - M4 x ) = 


= x(q y ) = * 2 (q y ) 


(A. 6) 


Substitution of these relationships into Equation (4.6) yields 

(x 2 C'iJ + \Cc x 3 + C'AJ + Do) (q x ) + (-Cd x 3 + xCch3 
+ £e x 3 ^ (q y ) 3 o 


There is a similar set of matrix equations for the y-z plane 
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^ 2 ['lJ + X[C y ] + C'Xj + [K y ]^ (q y ) + ( X CD y 3 + X[CM y ] 

+ Ce ] ^ (q ) - 0 (4.8) 

y / x 

The above two sets of coupled matrix equations can be combined 
into a set of 2n second-order matrix equations as 





r "n 

X 2 [I] + A[c x ] + IK] + [^3 

»[B ] + X[CM ] + [E y ] 

1 

(q x } 

) 

x[d ] + x[cm ] + [B ] 

X X X 

^[I] + X[c y ] + [A] + [K y ] 

1 

| 

V 

L 



J 


= 0 ( 4 . 9 ) 


The above matrix equation can be solved for and q and 

q , which are the damped natural frequencies of the svstem and their 

y 1 

corresponding eigenvectors. 


1 jwbst- 
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4.2 Solution Procedures for Modal Stability Analysis 

The stability and the damped modes of the system can be 
obtained by solving the set of homogeneous modal equations of motion 
in (4.9). This can be accomplished by expanding the set of 2n 
second order equations into the standard eigenvalues form of a set of 4n 


-Cc s ] 


[i] 

0 
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or in compact farm as 


(4.10) 


— — 

dot A[I] - [A] = 0 
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The set of equations in (4.10) can now be solved using various 
eigenvalue search procedures such as the power method, the Q-R 
algorithm, or the Leverrier's algorithm. Since for most rotor systems 
only the first several modes are of importance, it is more profitable 
to use a solution procedure which only searches for the lower modes 
instead of searching for all the modes of the system. In this par- 
ticular study, the Leverrier’s algorithm [ 65 ] is used. The matrix 
homogeneous equations can be expanded into a polynomial equation of 
the form as follows: 


4n 4n-i 4n-2 

X + p X +p\ + 

1 2 


+ p X + P 


(4.11) 


where 


p ■ - trace [a] 

P k “ “ k traC ® ^k-l^ k « 2, 3, 4 

[B ] = [A] + p [i] 

1 

[B k ] = [A] [B k-1 ] + P k [I] 


. , 4n 


k - 2, 3, 4 . . 


4n 
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The damped natural frequencies of the system can now be obtained 
as the roots of the polynomial equation of (4.11). A powerful 
procedure for obtaining these complex roots is the Newton-Raphson 
iteration [ll] approach, by which the smaller roots can be calculated 
relatively rapidly. Assuming an initial value X 0 


A “ A + 
0 



0 


(4.12) 


x'™ + p/"- 1 + 


+ p X + p 
4H-1 4n 


and 


A 

0 



+ p 


4n-l 

l- v 0 


+ . 


P iX 
4n-l 0 


4n 


Solving equation (4.12) for a new estimate of the eigenvalue A yields 



(4.13) 


In order to avoid the recalculation of the already obtained 
roots, a sweeping condition has to be included by rewriting equation 
(4: 13) as 
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a - a 
0 c 




(4.14) 


where M is the number of roots has been previously calculated. The 
convergence using the Newton-Raphson technique is less than 10 
iterations in most cases. 

With the calculation of the damped natural frequencies A^ the 
stability of the system can be obtained by 


A, = P + iwd, (4,15) 

i i “ i 


where P is the real part or growth factor indicating the stability 
(negative values are stable) , while the imaginary part is the 
damped critical speed of the system. Further, the modal coordinates 
of the system can also be obtained using Leverrier's algorithm as 


(i) 


B + A B + + 

1 12 1 o 


. + A 11 -^ 


n 


(4.16) 


where B. is defined as in equation (4.11). The matrix 


(i) 


tiombines 


of n column vectors of mode shapes in which each column is propor- 
tional to each other. Thus only one column of the matrix is necessary 
for the determination of the eigenvector of the corresponding material 
frequency A . Since the [b . ] matrices are obtained during the 


expansion of the polynomial as in equation (4.11), the eigenvector 


78 


(or mode shapes) of the system can be obtained with little extra 
computation. It can be seen that the element in the [B ] matrix 
and also the value of X may be very large. Initial scaling of the 
vector may be a necessity when using this procedure. 

To compute the eigenvector of the corresponding X^ of the system, 
the modal coordinate calculated are multiplied to the orthogonal mode 
shapes such that 



fv 








Since for every eigenvalue X^ there exists a set of modal coordinate 
vector {q^} such that the damped eigenvector for every Xj can readily 
be obtained by the above modal treatment. 
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4. 3 Applications and Comparisons of Different Modal Methods 

To illustrate the use of modal approach in calculating damped 
modes, a simple rotor model is used as an example. Consider a 
uniform rotor of 50 inches long and 4 inches in diameter supported by 
two symmetric bearings with stiffness of 60,000 lb/in. and damping 
of 100 lb-sec/in. The undamped critical speeds of the sytem are 
calculated by a transfer matrix computer program to be 4,193 RPM, 
8,230 RPM, 19,806 RPM, and 48,000 RPM, and their corresponding mode 
shapes are given in Figure 4.1. 

Table 4.1 represents the comparison of the undamped, damped 
critical speeds and the speeds at which maximum unbalance response 
was determined for the uniform rotor. The undamped critical speeds 
were calculated in this case to be 4,193 RPM and 8,230 RPM as shown 
in Figure 4.1, and the amplification factor for the first and second 
modes using the single mass theory such that A = ~ predicts that 
the first and second amplification factors will be 2.936 and 0.38 

L 

respectively for the first and second modes. This equation is based 

on the common assumption used in structural vibration theory that the 

modal damping cross coupling terras can be ignored and that each 

modal amplification factor can be calculated independently* It will 

be shown that even for the case of bearing damping C = 200 Ib-sec/in. 

b 

that this computation is greatly in error. 

A matrix transfer stability program based on the theory as 
outlined by Lund Lu3 was programmed and the damped eigenvalues were 
calculated as shown in table 4,1* The damped natural frequencies 
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TABLE 4.1 

COMPARISON OF DAMPED AND UNDAMPED 
CRITICAL SPEEDS AND AMPLIFICATION FACTORS 


C fe = 200 lb-sec/in - 60,000 lb/in 



N (undamped) 
c 


4,193 RPM (69.84 Hz) 8,230 RPM (137.2 Hz) 


A^ (undamped) 


0.936 


N (trans. matrix) 
d 

5,713 RPM (95.2 Hz) 

35,040 RPM (584 Hz) 

P 

-283 rad/sec 

-1199 rad/sec 

N (calc) 
c 

6,319 RPM (105 Hz) 

36,863 RPM (614.4 H 

A 

11 

1.29 U • .427) 

1.69 


N, (modal) 
d 


5,667 RPM (94.46 Hz) 37,403.6 RPM (623 Hz) 


-1145.9 


6,380 RPM (106.3 Hz) 42,463 RPM (707.7 Hz) 
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TABLE 4.1 

COMPARISON OF DAMPED AND UNDAMPED 
CRITICAL SPEEDS AND AMPLIFICATION FACTORS 

C = 200 lb-sec/ in IL - 60,000 lb/in 


MODE 


N^ (undamped) 


A^ (undamped) 


N (trans. matrix) 

U 


N (calc) 
c 


N, (modal) 


0.936 


5,713 RPM (95.2 Hz) 
-283 rad/sec 
6,319 RPM (105 Hz) 
1.29 (5 - .427) 


8,230 1 

RPM (137.2 Hz) 

0.38 



35,040 

RPM 

(584 Hz) 

-1199 

| 

rad/ sec 

36,863 

RPM 

(614.4 Hz) 

1.69 



37,403 

.6 RPM (623 Hz) 

-1145. 

9 


42,463 

RPM 

(707.7 Hz) 

1.85 

1 
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were calculated to be approximately 5,713 RPM for the first mode and 

35,040 RPM for the second mode. The values of P ■ -283 rad/sec 

1 

and P = -1199 rad/sec are the damping exponents of the system 
2 

indicating the stability of the system. 

The equivalent undamped critical speed as illustrated by single 
mass theory is 



Thus using the real and imaginary components, the undamped natural 
frequency is calculated to be 6,319 RPM and 36,863 RPM for the 
second mode. The modal amplification factors for each mode are 
calculated in the following example to be 1.29 and 1.69. 

Using the modal approach, if N natural modes of motion are assumed, 
there will be N simultaneous equations to be solved for the deter- 
mination of the coefficients A_^. As an example of this procedure, 
the undamped mode shapes for the uniform rotor were used to deter- 
mine the first and second damped natural frequencies. It can be assumed 
that due to rotor symmetry the second and fourth modes will not 
contribute to the formulation of the first or third mode shape due to 
the symmetry of the mode shapes. The first and third modal equations 
were solved simultaneously as follows: 

A +C A + C A + ui 2 A = 0 
1 11 1 13 3 11 

6 -^ 


(4.17) 
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i ! I 


: t.i 


i : 


n 


10 


0 


a + c A + c A +w 2 a ■ o 

3 31 1 33 3 33 


(4.18) 


Assuming a solution of the form 
A - Ae U - Ae'* ± 1 “ d > t 


(4.19) 


We can write the result in matrix form as follows 


A 2 + to 2 + AC 

1 11 


AC 


13 


AC 


31 




r > 


( ^ 


< 

A 

i 

n 

0 

1 1 

AC 

33 


A 

3 

^ J 


r 

o 

V. 


(4.20) 


The corresponding frequency equation is 
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A 4 + A 3 (C + C 
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+ A 2 (to 2 + to 2 

!s ■. j 

. ? 

11 
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1 3 
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. | 

+ A(C to 2 + C m 2 ) 
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to 2 U> 2 a 0 
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11 3 33 1 


1 3 
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) • 




» . 


With e - 468 
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C » 726 

K 

&■ 


n 


1 3 
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r ■■■ ! 


C - 2388 

j 

C - 3704 


i -1 

31 


33 


l . 

r ! 

1 ; 

Equation (4 . 21) can 

be 

solved as 


( 4 . 21 ) 
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X 1 * + 4172X 3 + 4.49 x 10 5 X 2 + 2.73 x 10 9 X + 8.29 x 10 11 ■ 0 
with the solution 

X - -307 + 1593.5 rad/sec 
1 - 

This value is in close agreement with the value calculated by the 
transfer matrix method as shown in Table 4.1. The amplification 
factor predicted from the transfer matrix method was 1.29 whereas 
the value calculation based on the first mode is only 0.93 (as given 
in Table 4.1) . 

This value is in close agreement to the value calculated by 
transfer matrix method as shown in Table 4.1. 

In a similar fashion, using only the second and the fourth 
undamped modes, the second complex eigenvalue is predicted to be 

X 2 - -1145.9 + i3916. 9 rad/sec 

The resulting second response speed amplification factor is cal- 
culated to be 

A - 1.85 
U 2 

Comparing the calculations of the damped natural frequencies 
for the first and second modes, the modal method compares favorably 
with the calculated numerical values based on the matrix transfer 
stability program. Because of the simplicity of the system, the 
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first and second damped modes may be accurately calculated by 
applying the conditions of symmetry; that is, only the first and 
third modes are necessary for the accurate calculation of the first 
damped mode and only the second and fourth modes are necessary for 
the calculation of the damped second critical speed. In complex 
multistage turborotors, however, there is usually not the convenient 
condition of symmetry as it exists in this sample problem. However, 
the first damped mode can often be accurately calculated by using 
the first three undamped critical speeds. 

In addition to the calculation of the damped natural frequency 
by means of the modal method, the damped mode shapes can also be 
determined. This also provides considerable insight into the 
elastic shaft deformation behavior of the rotor at resonance. By 
applying the complex eigenvalue to equation (4.17) 

(X 2 + C X + u 2 ) 

A u A 

3 C X 1 

13 

and normalizing the first coefficient A ■ 1, the coefficient A 

1 3 

can be calculated as follows. 

A - ^(4.46 x 10 s £ 125.3° + 3.13 x 10 s L 117.3° + 1,92 x 10 s ■<£■ 0°) 
3 4.848 x 10 5 L 117.4° 

=■ 0.47 4 85.19° 
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Therefore, it can be seen that the complex first damped mode is a 
function of both the first and the third mode. The third mode is 
approximately 90° leading the first mode and its magnitude ia approxi- 
mately one half of the first mode. Therefore, we conclude that with 
a bearing damping of C, * 200 lb-sec/in, the complex first mode is 

o 

composed of the normalized first mode plus 50% of the third mode 
leading the first mode by 90°. 

In summary, it can be seen that the introduction of bearing 
camping of 200 lb-sec/in into the simple model will cause a considerable 
shift of the rotor natural frequencies. From the standpoint of 
examining the peak response of the rotor, it can be shown that if 
an undamped modal expansion is used, the rotor amplitude may be 
calculated with less than approximately 5% error when undamped modes 
up to approximately five times running speed are incorporated. 

To further illuatrrrte the application of the method, r.odal cal- 
culations were performed for an 8-stage centrifugal compressor as 
discussed by Lund CllD where the damped natural frequencies were 
calculated. The rotor weighs about 1,400 lbs and is 102 inches in 
length. The center of gravity of the rotor is almost midway between 
the two identical journal bearings of 5 inches diameter, 1.5 inch 
length, and 0.0035 inch clearance. A description of the rotor shaft 
geometric properties is given in Table 4.2 and the bearing character- 
istics are given in Table 4.3. An undamped critical speed analysis 
with the average bearing stiffness of 609,550 Ib/in. at the left bearing 
and 558,100 lb/in. at the right bearing indicates that the critical 


STATION NO. 

WEIGHT 

LENGTH 

SHAFT DIA. 

SHAFT DIA. 

I 

IP-POLAR NON. 

IT-TRANS. NON. 



. UPI. 

i IN..) 

OUT SIDE 

INSIDE . 


1 LP-IN+*2I 

ILB-IN**Z| 

. 1 


108.172 _ 

.800 

2.750 

0.000 

2.81 

0.000 

0.000 

2 


13.982 

6.300 

4.360 

0.000 

17.74 

0.000 

0.000 

3 


21.QQS 

1.40Q_ 

5.000 

9 .,000 

30.68 

0.000 

0.000 

4 


12.225 

1.600 

5.000 

0.000 

30.68 

0.000 

0.000 

5 


19.660 

3.240 

6.500 

0.000 

87,62 

0.000 

0.000 

6 


24.955 

2.000 

6.620 

0.000 

94 fr 28 

0.000 

0.000 

7 


. 25.814 

3.300 

6.620 

0,000 

94.28 

0.000 

0.000 

e 


34.292 

3.160 

7.180 

0.000 

130.46 

0.000 

0.000 

9 


29.694 __ 

2.300 

6.7Q0 

0.000 

98.92 

0.000 

0.000 

10 


66.943 

2.900 

6.700 

0.000 

98.92 

617.000 

309.000 

. n 


-?*.753 

2.300 

6.700 

0.000 

98.92 

33.900 

17.800 

12 


66.943 

2.900 

6.700 

o.ooo 

99.92 

617.000 

309.000 

13 


28.753 

2.300 

6.700 

0.000 

98.92 

33.900 

17.800 

14 


66.943 

2.900 

6.700 

0.000 

98.92 

617.000 

309.000 

IS 


28.753 _ 

2.300 

6.700 

0.000 

98.92 

33.900 

17.600 

16 

O 

81.659 

5.890 

6.700 

0.000 

98.92 

617.000 

309.000 

17 


58.770 

5.890 

6.700 

0.000 

98.92 

0.000 

0.000 

18 

TJ JT'i 

63.606 

2.650 

6.700 

0.000 

96.92 

617.000 

309.000 

19 


39.034 

3.350 

6.700 

0.000 

98.92 

49.100 

27.100 

20 

is 

70.934 

2.650 

6.700 

o.ooo 

98.92 

617.000 

309.000 

21. 

-H- 

2&*jQ34 

3_.35iL 

6.700 

0.000 

9 &.,22_ 

49.100 

. _ 27.100 

22 


70.934 

2.650 

6.700 

0.000 

98.92 

617.000 

309.000 

23 

g > 

34.034 i 

3.350 

6.700 

0.000 

9B.92 

49.100 

27.100 

24 

Elf 

81.061 

4. 630 

6.700 

0.000 

98.92 

617.000 

309.000 

25 


_ 50. 018 

2.700 

6.700 . 

„ 0.000 

98.92 

164.000 

121.000 

26 

t< ss 

25.333 

2. 160 

7.000 

0.000 

117*86 

0.000 

0.000 

27 


27.933 

_3.3 20 

_ 6.620. 

0.000 

. 94.28 

0.000 

0.000 

28 


25.911 

2.000 

6.620 

0.000 

94.28 

0.000 

0.000 

29 


24.861 

3.220 

6.500 

0.000 

87.62 

0.000 

0.000 

30 


19.566 

i.600 

5.000 

o.ooo 

30.68 

0.000 

0.000 

31 


8.335 

1.400 

5.000 

0.000 

30.66 

0.000 

0.000 

32 


16.840 

5.320 

4.680 

0 • 000 

23*55 

0.000 

0.000 

33 


4U997 

_ 1,750 

3.740 

0.000 

9.60 

0.000 

0.000 

34 


41.590 

5.150 

3.680 

0.000 

9. .00 

0.000 

0.000 

35 


12.643 

0.000 

3.680 

0.000 

9.00 

0.000 

0.000 



1420.984 

102.800 







Table 4.2 GEOMETRIC PROPERTIES OF LUND CllH COMPRESSOR 



' : 1 

a 

II 

88 


Table 4.3 

BEARING CHARACTERISTICS USED FOR SIMULATION 
OF THE 8-STAGE COMPRESSOR 


Bearing Number 


Stiffness and 
damping coefficients. 

1 

2 

K (lb/in) 

XX 

. 

44l„000 

415,300 

K (lb/ In) 
xy 

83,330 

88,540 

K (lb/in) 
yx 

-853,500 

-792,400 

K (lb/in) 

yy 

778,100 

700,900 

C (lb-sec/ln) 

20C 

786.3 

758.7 

C (lb -sec/in) 
xy 

-716.4 

-674.3 

C (lb-sec/inl 

y* 

-716.4 

-674.3 



C (lb-sec /in) 

yy 


2,196.0 


2,196.0 




speeds will occur at 3,270 RPM, 7,527 RPM, 9,018 RPM, 14,092, and 
27,921 RPM. Note that the effects of bearing cross-coupled stiffness 
and rotor polar moments of inertia are neglected. The undamped mode 
shapes for this compressor are typical flexible rotor modes due to high 
stiffness of the bearings. Normalized mode shapes for the first five 
critical speed are given in Figures 4.2 and 4.3. 

In order to illustrate the use of the modal equation derived in 
the previous section, the damped natural frequencies of the system were 
calculated with bearing cross-coupling stiffness and damping effects. 

A computer program was set up to formulate the standard eigenvalue 
matrix as given in equation (4.10) and the 4N degree polynomial equation 
of 4.11 was solved by Leverrier's Algorithm. A rotor speed of 2,000 
RPM is assumed for first critical speed calculation of disc gyroscopic 
calculations and 4,000 RPM for the second critical speed. Using the 
modal approach discussed in section 4.2, the damped natural frequencies 
were calculated to be: 2,962 RPM (P = -0.43 rad/sec) for the forward 
mode and 3,633 RPM (P = -19.5 rad/sec) for the backward whirl mode where 
P is the damping exponent of the corresponding critical speed. The mode 
shapes for the corresponding forward and backward modes of the first 
critical speed are given in Figure 4.4 and 4.5. Note that the first 
critical speed backward mode shape given in Figure 4.5 is quite 
similar to the conventional free-free undamped critical speed mode. 

(Lund Cll] pointed out that the first two backward modes were damped 
out and the third backward mode appears to be the first.) But this 


G.QO 0.50 








94 


mode will not be easily excited due to its high damping exponent 
values while the first forward mode with P almost zero is close to 
the stability threshold. This means that the rotor is marginally 
stable and has a very high rotor amplification factor, and hence 
may cause a large rotor unbalance response at the first critical 
speed. Similarly, the rotor backward resonance speed and amplifi- 
cation factor are computed to be = 3,651 RPM and A^ “9.64. 

ui u x 

Thus, it can be seen that the forward mode has a much higher 
amplification factor than the backward mode and will be very easy 
to excite. 

Similar modal calculations show that the second damped natural 
frequency will have a forward critical speed at 4,933 RPM (P = -104.7 
rad/sec). In this case, the backward critical speed occurs at a 
speed of 13,910 RPM, which is much higher than the forward critical speed 
(the third forward damped critical speed is 6,730 RPM). The forward 
and backward mode shapes of the second damped critical speed are 
given in Figures 4.6 and 4.7. Note that in Figure 4.7, the second 
backward mode shape is similar to a conventional fourth bending 
mode because the second and third backward critical modes are 
critically damped over their critical speed range Clll. 

A further justification of the planar modal analysis is the 
comparisons of results of modal analysis using different sets of 

J 

undamped mode. Modal stability calculations of the same compressor 
were performed using (a) four undamped planar modes (from average 
bearing stiffness), (b) four free-free undamped modes, (c) two 
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free-free undamped modes plus two rigid body (rotational and translational) 
modes* (d) four free-free modes plus two rigid body modes* and the 
corresponding results are given in Table 4.4. A set of values calculated 
from transfer matrix method are also given in the table. The damped 
natural frequencies calculated from planar modes and the free-free plus 
rigid body modes are in very close agreement to each other, and their 
accuracy is verified by the values predicted by the matrix transfer cal- 
culations. 

In the case of using only four planar modes, eight damped natural 
frequencies are resulted from solving the frequency equation of (4.11). 

The complex frequencies calculated are in good agreement with the matrix 
transfer method, especially for the lower frequencies. Including the 
computation of the planar modes, the computer time used (central 
processor time of the Cyper 172 system) is the least of all cases (23.2 
seconds as given in Table 4.4). In the case of using 4 free- free modes 
of the system, the solution is quite misleading. The two lowest and 
the two zero frequencies of the system are missing due to the lack of 
basic rigid-body mode contributions. The computer time consumed is 
higher than the previous case of using planar modes because more computer 
time has been consumed in calculating the free-free modes. The complex 
frequencies calculated by the 2 free-free plus 2 rigid body modes are 
also in good agreement with those by the transfer matrix method. Com- 
paring these results with those of the planar modes, it seems that the 
planar mode calculation has better accuracy in the lower frequencies 
while the free-free plus rigid body mode calculation has more accuracy 


4 AVERAGE 


4 FREE-FREE 


2 FREE-FREE PLUS 


4 FREE-FREE PLUS 


TRANSFER MATRIX 


STIFFNESS MODES 


MODES 


2 RIGID BODY MODES I 2 RIGID BODY MODES 


rad /sec 


rad/ sec 



rad /sec 


rad/sec 



rad/sec 



-6,630 


-2,074 


-2,457 


-3,712 


-2,070 


-338.8 


-0.36 2,955 


-13.5 


-108.7 


-149.7 


-95.1 


-1,360 


3,623 

4,835 

6,687 


-8.9 13,885 

-5.8 14,032 


24.600 

27.600 
42,500 
42,500 


C.P. 

TIME 33* 8 sec * 


-0.49 


-20.5 


-104.7 


-139.2 



2,967 

3,639 

4,933 

6,779 

13,912 

14,037 


-93.1 


-101.5 


-5.37 


- 21.2 


-381 


-93.4 


-1,679 


6,362 

6,680 

14,050 

14,077 

28,252 

27,520 

40,385 

40,383 


-0.65 


-18.5 


- 112.0 


-153 


2,978 

3,659 

4,836 

6,637 


-6.28 13,906 

-5.8 14,033 


23.2 sec. 


27.4 sec. 


27 sec. 


-2.33 


-16.5 


-108.7 


150.8 


-93.5 


2.969 


3,633 

4,834 

6,650 


-8.02 13,896 

-5.8 14,036 


24,997 


42,005 


56.8 sec. 


Table 4.4 Comparisons of The Complex Eigenvalues Calculated by the Modal and Matrix Transfer Methods 
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in the higher frequencies. Again the computer time used in this case 
is slightly higher than using the planar modes. For further investiga- 
tion, the system complex frequencies were also computed using 4 free- 
free plus 2 rigid body modes of the system. As shown in Table 4.4, 
this use of two additional free-free modes did not improve the results 
significantly, but the computer time consumed has increased over 100 
percent (from 27 seconds to 56.8 seconds). Thus it can be concluded 
that if only the lower frequencies of the system are required, the use 
of a few basic system undamped modes can give very good results. How- 
ever, there is a drawback in this modal analysis such that the damping 
exponents (real part of the complex frequencies) of the system may some- 
times be inaccurate due to the lack of the higher mode contributions. 
When the number of modes used is restricted by computational time and 
cost consideration, the use of planar (average stiffness) modes will 
be a better approach. 



BE 


V. FORCED RESPONSE ANALYSIS USING MODAL ANALYSIS 


5.1 Solutions of Modal Equations of Motion 


In solving for the forced response of the rotor-bearing system 
the matrix equation of motion in (3.1) is transformed into modal 
coordinates using a set of undamped orthogonal modes. With the 
effects of unbalance, disc skew, shaft bow, and rotor acceleration, 
the set of modal equations in the x-z plane can be written as 
follows 
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u 


(Me [w 2 cos (wt + a) + u sin (wt + a)] 

- I ) cos (wt + 6)+w sin (wt * 3) 

P fc 


(5.1) 




0 

n 



Note that all tho terms in the left-hand aide of the equation 
are represented by generalized coordinates (q^» dyJ except for the 
bow of the shaft. In the modal approach as discussed in the previous 
sections, it was noted that for general cases, the shaft stiffness 
matrix of the shaft is not required after the modal transformation 
while equation (5.1) has to retain the stiffness matrix in order to 
include the shaft bow effects. To avoid the derivation of the 
stiffness matrix and to save computer time and core memory space, 
the bow of the shaft can also be transformed in£o modal coordinates 
as follows; 



I> + ftj [k J 

XX D X0 


[k xx ] Ck x0 ] <*d> 

J , a 

C fc e e 3j 1 UeJ 


^ k 0Q^ 





103 


and therefore 




CA e f Cm]' fctj) + Ca 6 3 t Ci t I {e d > 


(5.5) 


Substituting this relationship into Equation (5.1) and premultiplying 


the equation by 


[A e ] 

iJVj 


gives the following matrix equation. 
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The equations can be written in the compact form as 
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Similarly, the equation for the y-z plane can be written as 
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Combining Equation (5.7) with (5.8) and rearranging the terms, we 
have 
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Thus, the modal acceleration terms can be calculated from the 
above equation with initial conditions for the modal displacement 
given by the following relations 
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Similarly, the modal velocity is given by 
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( 5 . 11 ) 


( 5 . 12 ) 


With the modal acceleration and velocity terms calculated as above, 
the modal transient motion can be computed by numerical integration 
in time. The rotor forced response motion can be obtained by back 
substitution of the modal coefficients into the following equation: 


If steady state synchronous unbalance response motion of the rotor 
is assumed such that 


{q x > * iui { q^} - -ui 2 {q^} 


(5. 


{q y } - iw{q y > - -OJ 2 {q y } (5. 

Equation (5.7) can be rewritten as 
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Similarly, equation (5.8) 
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These two sets of simultaneous equations are coupled, and by 

solving the 2n system of equations, q and q can be calculated. 

x y 

Thus, the unbalance response of the system at the operating speed 
of oi (rad/sec) can be computed as 
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(5.18) j 

The solutions of x and y from the complex equation (5.13) are 
complex. They can be expressed as 

x = Re £( x r + (5.19) 

y - Rej^ <y r + iy^ e 1Wt ] (5.20) 





The subscript r denotes the real. part of the solution and i denotes 
the imaginary part of the solution. Thus, the maximum amplitude in 
x and y coordinate directions are given by 



or expanding equations (5.19) and (5.20) that 



The results of the above equations can be expressed by major and 
minor elliptical semi-axis [l7, 38] a and b as shown in figure 5.1 
that 
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The orientation angle for the elliptical major axis is 
given hy 


9 « *5 arctan 
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(3.27) 


An alternate representation of the rotor motion is to write the x, y 
components of motion as 


x • x cos (mt - S ) 
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(5.28) 


y ■ y sin (tat 



(5.29) 


The amplitude and phase angle are similar to those obtained from 
experimental results as indicated in figure 5.2. For the probe to be 
in the same line as the positive :c-axis, the timing mark is at an 
angle g such that 

3C 


0 “ arctan 

x 



(5.30) 


and similarly for the probe at y axis 



■ arctan 




(5.31) 



Figure 5.2 Phase Angle Relationship in Rotor Elliptical Orbit 
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For a symmetrical system. 


x « R cos (wt ** 3) 


y ■ R sin (tot - $) 
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(5.32) 

j * 

(5.33) 
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Then it can be deduced that 
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(5.36) n 

i } 


Hence, the rotor symmetrical whirl orbit is circular and the outlined 
calculation procedure can be much simplified using the above relation- 
ships. 
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5.2 Applications and Comparisons of Steady State Solutions 

In order to illustrate the use of the modal equations derived 
in the previous section, the same example of an centrifugal compressor 
discussed in section 4.3 is used. The modal method was applied to compute 
the unbalance response of the compressor. An unbalance of 1 oz-in. 
was placed in the mid-span between the bearings to simulate a first- 
mode excitation using the modal approach discussed in section 5.1. 

The rotor unbalance response was calculated for an operating speed 
range of 500 RPM to 4,500 RPM. For validation purposes, unbalance 
response calculations based on the matrix transfer method Cl 73 were also 
performed. Figure 5.3 shows the comparisons of unbalance response 
calculated by both methods at the left bearing station, and Figure 
5.4 shows the unbalance response at the mid-rotor span. It can be 
seen from the figures that the results from both methods are in very 
good agreement. Note from figure 5.4 that the peak of the curve 
occurs at 2,995 RPM with an amplitude of 29 mils. This peak response 
speed is very close to the calculation of * 2,963 RPM using 
equation (3.26). A closer investigation at the unbalance response 
of the system passing through its first critical speed by both transfer 
matrix and modal methods is given in Table 5.1. Note that the modal 
method can predict the peak response speed quite closely to the one 
by transfer matrix method with a peak magnitude of response of about 
22 mils. Note that the accuracy in the results does not improve 
significantly by using 6 planar modes instead of 4 planar modes. 
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Another aspect of this analysis is that for a lightly damped system 


such as this compressor, the unbalance response curve always gives 
a very sharp rising slope near the resonance speed, or, in other 
words, the speed range in which the peak resonance speed will occur 
is very narrow. For accurate calculations, the unbalance response 
of the system has to be calculated for very small speed increments 
so as to insure the peak response amplitude will not occur between 
two consecutive speed increments. Since each unbalance response 
calculation is quite time consuming, this will make the analysis 
quite expensive. However, there is a fast method of approximating 
the maximum unbalance response amplitude using the amplification 
factors discussed previously. Using the concept that the peak response 
amplitude is 

Z = e , A ■ * 0.085 x 430 * 36 mils 
i i ui 

where 

.. . . . . 1 oz-in x 1,000 mils /in _ 

Modal eccentricity e ± - Jj lba °- 085 mils 

In this calculation, a modal weight of 740 lbs. for the first mode 
is used instead of the rotor weight of 1,400 lbs. 
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The maximum amplitude of 36 mils calculated from the rotor 
amplification factor Is higher than the 29 mils calculated from the 
unbalance response computer program. It appears that In this case 
even a speed Increment of 1 RPM is still not small enough to catch 
the real peak of the resonance motion. The amplification factor can 
provide compressor designers with information of the maximum rotor 
motion in a simplified manner. 

To further illustrate the calculation of steady state forced 
response, the results from the modal method were compared to experi- 
mental data. A uniform rotor of 21 in. long, 1 in. diameter with 
3 large disks located at the mid span was used as the model for 
analysis. The rotor is supported by two plain journal bearings at 
each end. A schematic of the rotor system is given in figure 5.S. 

A noncontacting probe is set up in the position x2 as in the diagram 
monitoring the horizontal rotor motion. The solid lines in figure 5.5 
indicate the rotor synchronous response from experimental data C56J. 

The dotted line represents the imbalance response calculation using 
only the first undamped mode of the system. In this particular case, 
the unbalance of the system is measured to be 0.2 oz-in at 0 degree 
located at the center dial of the rotor. The rotor has a residual 
run out of 0.7 mils at the center disk and 0.6 mils at the other 
disks and are 175 degrees out of phase with the rotor unbalance. 

The rotor geometry and bearing characteristics used in this analysis are 
shown in Table 5.2. The dotted line of modal. calculations in figure 
5.5 shows very good agreement with the experimental results. Note 
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Table 5.2 ROTOR GEOMETRY AND BEARING CHARACTERISTICS OF THE THREE-MASS ROTOR 
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Figure 5.5 COMPARISON OF EXPERIMENTAL AND THEORETICAL RESULTS OF A THREErMASS ROTOR C56D 










that there are differences In response during up and down speed of the 
rotor while the unbalance response calculation predicts the average 
between them. Also, there occurs a dip in the response after the 
resonance peak, which indicates eccentricity in the rotor £21 ^ . It 
can also be seen that the dip in the rotor response did not go to zero, 
which indicates that the bow and the unbalance is less than 180 degrees 
out of phase with each other. 


In order to illustrate the application of the modal method 
discussed in the' previous sections , a computer code was set up to 
predict the forced response of rotor systems and compared those of 
known solutions or published works. The first case of this study 
is the single-mass Jeffcott rotor. It consists of a single mass 
of 100 lbs on a uniform rotor of 100 in long and 4 in diameter 
supported by rigid bearings as shown in figure 5.6. The system 
also has a damper of 13.7 Ib-sec/in acting at the central mass of 
the rotor. The undamped critical speed of the system is calculated 
to be at 2,525 RPM. Since there was no instability mechanism existing 
in the rotor, the system is stable. This implies that the forced 
response of the system will go from the initial transient motion 
into the steady state unbalance response as time increases. 

In this particular study, a rotor unbalance of 1 oz-in. is 
assumed to be located at the center mass. From unbalance response 
calculations using the transfer matrix approach or the modal method 
discussed, it was found that the rotor will have a magnitude of 3.07 
mils with a phase change of 84.3 degrees when the rotor operating 
speed is 2,500 RFM. Note that the rotor response orbit should be 
circular due to symmetry at the bearings, and the large phase change 
(near to 90 degrees) indicates that the rotor is operating near its 
critical speed. Figure 5.7 and 5.8 show the transient response 
motion of the rotor center mass starting with zero initial conditions. 








126 


Note that the rotor transient motion dies out and gradually assumes 
the steady state orbits as predicted by the unbalance response 
calculation. A further illustration is the comparison of this 
transient results with some exact solutions, namely, the convolution 
integral. Since the rotor model considered is a Jeffcott type, 
the transient solution can be readily obtained through analytical 
integration of the convolution integral. Table 5.1 shows the com- 
parison of results from both the modal method and the convolution 
integral. These results are in very good agreement with an error 
less than 0.5% as both solutions go into steady state motion. This 
further illustrates the validity and accuracy of the modal approach 
of transient response analysis. 

Another example of verification is the comparison of results 
from published works. A rotor single-mass rotor model on flexible 
bearings with internal damping effects similar to the one analyzed 
by Gunter C$Q was introduced. The rotor model consists of a mass 
M * 0.25 lb-sec 2 /in, (vertical bearing stiffness) » K 2 (shaft 
effective stiffness) * 250,000 lb/in, K (horizontal bearing stiff- 

X 

ness) » 125,000 lb/ in, C 1 (bearing damping) ■ 50 lb-aec/in, and C 2 
(internal damping acting on mass) « 50 lb-sec/in. The rotor system 
has two critical speeds (vertical and horizontal) occur ing at 577 
rad/sec and 707 rad/sec. Assuming a rotor mass imbalance of 1 oz-in 
exists in the rctor mass, the forced response of the system was 
calculated at two different speeds. Figure 5.9 and 5.10 show the 
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transient orbit and time-displacement plot of the rotor running at 
707 rad/sec with zero initial conditions. It can be seen from these 
figures that the rotor eventually goes into the steady state motion 
because the system is stable (far below the suability threshold 
speed). The elliptical orbit motion of the rotor shows that there 
is bearing assymmetry in the system, and the 90-degree phase change 
indicates that the rotor is operating near a critical speed. Figure 
5.11 shows the results from Gunter C9l] calculated with an analog 
computer. Examining the figures, it can be seen that the orbits and 
motion from both calculations are in good agreement. Thus it further 
verifies the use of modal transient response analysis. 

When the rotor running speed is changed to 3,200 rad/sec, the 
rotor transient motion changes dramatically. Figure 5.12 and 5.13 
shows the rotor orbit motion and time-displacement plots at 3,200 
rad/sec operating speed. The presence of the. inside loops in the 
rotor response orbits indicates the existance of non- synchronous 
rotor motion components. This effect is due to the fact that the 
rotor is operating near the stability threshold (threshold speed of 
3,230 rad/sec). In this case, the non- synchronous motion components 
are more easily excited than when operating at a much lower speed 
of 7.7 rad/sec (vertical critical speed) in which the first critical 
speed component has completely dominated the rotor motion. Figure 
5.16 shows the rotor transient response orbits by Gunter obtained 
with an analog computer. From the figure, it can be seen that the 
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M -0.25 LB SEC 2 /IN. 
Ky«K 2 - 250,000 Lfi/lN. 
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Figure 5.11 FORCED RESPONSE OF SINGLE HASS ROTOR FROM ANALOG PROGRAM 
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TRANSIENT RESPONSE OF SINGLE MASS ROTOR - MODAL METHOD AT 3,200 RAD/SEC 
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VI. NON-LINEAR MODAL TRANSIENT ANALYSIS 

II — i — nrniMin imu — i 

6.1 Application of Numerical Integration Procedures 

In transient analysis of most mechanical structures* the 
accelerations obtained by solving the equations of motion are inte- 
grated directly to evaluate the dynamic transient response of the 
system. In this particular analysis, the modal equations of motion 
(5.9) with modal excitations are solved, and the modal accelerations 
are integrated directly by numerical integration. The stability and 
accuracy of different types of numerical integration procedures 
have been extensively discussed C57 - 6lU. These considerations are 
beyond the scope of this research. In this study, the main concern 
Is the application of simple, accurate numerical Integration schemes 
in nonlinear transient response analysis of turbomachinery, especially 
when a large number of Integration steps are necessary. For direct 
integration of the equations of motion using the point mass stiffness 
formulation, equation (5.9) can be rewritten in the following form. 



With this equation, the acceleration quantities U may be cal- 
culated starting from the initial conditions. Using the summation 
notation convention, the coupled equations may be written as 


There are numerous procedures that have been proposed for numerical 
integration of this type of equation, and three of the commonly 
used methods will be stated. 

1. Modified Euler Method 

This is one of the simplest procedures and has been found to 
work well with a relatively small number of degrees of freedom. 

It is based upon a Taylor series expansion of the motion for a small 
time step about the previous step. It has the advantage of sim- 
plicity and requires no starting solution and is usually stable (38, 61] 
for small step sizes (in the absence of highly nonlinear forces) . 
According to the Taylor series expansion, we may find the velocity 
and displacement at time t (»t +At). 


- y_ + At y + + 


' u+1 dt n+i 


7 n zl « 


* * • * * 


(6.3) 


‘ y n + At + ^ V* + ^ y + 


(6.4; 


This procedure can be carried out to cover the whole range of time 
for which computation is required. 


2. Runge-Kutta-Gill Method 

This is a more complex procedure which is accurate to the fourth 
order. In this approach, the second order differential equation C67H 
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y - f(t, y, v) 


(6.5) 


Is replaced by two simultaneous first order equations 


• ft 

V a y « £(t, y, v) 


( 6 . 6 ) 


and 


v - y - g(t, y, v) (6.7) 

Usually, this method has a greater accuracy than the Euler 
method, and larger time steps can be used to save computer time 
for integration. Also, its accuracy up to the fourth order makes 
it more applicable to nonlinear transient analysis. One drawback 
of this method is that it may develop numerical instability when 
a coulomb friction type of damper support is encountered. A step 
by step procedure is as follows: 

( 6 . 8 ) 

(6.9) 


y ^ - y + — (K + 2K + 2K + K ) 

n+x n 6 o x 2 3 


V , = v + “ (M + 2M + 2M + M ) 

n+i n 6 o i 2 a 


where 
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\ - s(t n » y n . v ) 

o ci n ti 






K * g(t + At, y + AtK , v + AtM ) 
s ® n ■ n a n 2 


M » f(t , y , v ) 
0 n n n 


H - f < t n + % V + T K b ’ V n + ^2 V 
1 n z n z o n z o 


v f 'v?vi s ,'Vlv 


M * f(t + At, y 4 * AtK , v + AtM ) 
3 n ft 2 n 2 


3 . Nowroark’s B-parameter Method 

The method originated by Newmark introduces a parameter 3 which 
can be changed to suit the requirements of the problem at hand. 

The second order differential equation can be solved as 


\ + 4 f (? n + W 


(6.10) 


Vl ■ y n + ity n + ^ V + e(At)! <W* V 


( 6 . 11 ) 


The net effect of 0 is to change the form of the variation of 

acceleration during the time interval At. By letting 3 ■ 0, the 

acceleration is constant and equal to y^ during each interval. 

If $ ■ 1/8, the acceleration is constant from the beginning as y^ 

and then changes to y n+ ^ at the middle of the interval. The value 

8 * 1/6 assumes that acceleration changes linearly from y^ to 

8 = 1/4 corresponds to assuming that the acceleration remains 

constant at an average value of (y + y )/2. 

n n-ri 

This method is fast in comparison with the Runge-Kutta-Gill 
method and is usually numerically stable. The introduction of the 
8-parameter allows this method to handle complicated nonlinear 
problems in a simple fashion while maintaining good accuracy. A 
problem encountered in this method is that the proper choice of 3- 
parameter value can significantly affect the accuracy of the 
integration. When a 8 value of 1/4 is chosen, the Integration scheme 
is unconditionally stable [6l]» but the solution may not be as 
accurate as 8 * 1/6. 

To illustrate the choice of integration procedures used in 
transient response analysis, the industrial 8-stage compressor 
discussed in section 4.3 is chosen as an example. The compressor 
is supported by two hydrodynamic bearings, and the bearing character- 
istics are similar to those given in table 4.2. An unbalance of 
1 oz-in, is assumed to be located at one of the compressor stages. 

The rotor model is running at 3,000 RPM, which is at the stability 
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threshold speed of the system. The transient response of the system 
Is evaluated using two different integration procedures} namely* 
the modified Euler integration procedures and the Newmark Beta 
integration procedure. A time step of 48 integration steps per rotor 
revolution cycle is used. Figure 6.1a is the response calculated 
by Newmark Beta which shows that the rotor is unstable at the 
operating speed, and the magnitude of the rotor response is increasing 
with time without approaching a limit cycle. The curve in the 
orbit is relatively smooth, which shows that smaller time steps of 
integration is not necessary. Figure 6.1b is the transient response 
orbit of the same condition with modified Euler integration scheme. 

Note that the transient response solution suddenly grows very rapidly 
and the procedure is numerically unstable. The large response in 
the figure (IQ 30 mils) proves the numerical instability of the scheme 
as well as the roughness of the curve. A much smaller time step 1s 
necessary. Figure 6.2 shows the time-displacement plot of the same 
station, which provides further ground for this statement. Figure 
6.3 and 6.4 shows the transient orbits and time-displacement plot of 
the compressor stage at which the rotor imbalance is located. Again, 
it indicates that the modified Euler procedure is numerically unstable, 
while the Newmark Beta method gives much better results. Comparing 
the computer time consumed in both procedures, it was found that the 
Newmark Beta integration procedure only requires 52 more time than 
the Modified Euler scheme. Thus, it can be concluded that the Newark 
Beta integration procedure is by far superior to the modifed Euler 
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6.2 Effects of Nonlinear Bearing Supports 

In the dynamic analysis of rotating machinery, rotor system 
dynamic behavior has been either studied with flexible rotors on 
spring and dashpot supports £l, 2, 8] or as a rigid or point mass 
body with nonlinear fluid film bearings £36, 58, 61]]. Both approaches 
may be inaccurate for fexible rotors undergoing large displacements when 
the bearing forces become nonlinear in nature. In this analysis, 
the coupled rotor modal equations of motion are solved similar to 
those discussed in the previous chapter while additional bearing 
forces and moments are calculated and incorporated for each time 
increment during integration. The bearing forces and moments are 
calculated using the integrated rotor displacements and velocities 
and are iterated through each time step. 

In modal analysis, the bearing forces of the system are incor- 
porated into the modal equations of motion as modal forces and 

F , (Equation 5.7), These modal forces are combined together with 
by 

other excitations such as rotor unbalance, disk skew, and shaft bow 
to form the total modal excitation of the system. The modal bearing 
forces can be calculated by 


{F, } * [A ] {F ) 
bx e x 


( 6 . 12 ) 


{F v } = [A ] {F } 

by e y 


(6.13) 




where F and F are the bearing force vectors at the mass stations, 
x y 

Thus equations 5,7 and 5.8 with nonlinear bearing forces effects 
can be written as 


{q } + [C ] {q } + [A] {q } + [k ] {q > + [D ] {q > + [CM ] {q } 

X X A a A A A j A jr 


+ [E ] {q } + [EA ] {q > - {xF} + {xB> + {FBx} (6.14) 

x y x y 


and 


(<ly> + [C x ] {q y } + [A] {q y > + [k y ] {q y > + [D y ] {q^} + [CM y ] (q^ 


+ [E y ] (q x ) + [EA y ] {q y } - {yF} + {yB} + {F By > 


( 6 . 15 ) 


In this particular analysis, the effects of non-linear bearing 
forces can be illustrated using short journal bearings whose bearing 
forces can be represented by an analytical expression. Ass umin g 
isothemal fluid film, the Reynolds equation for short journal bearings 
C583 in nondimensional form can be written as 


(* -0 ) 


JL. A 3 
3C \ h 3C/ 


3h 


(1 - 2<{>) — + 2e cos8 


( 6 . 16 ) 


where F = 


6yco 


f 


i ! 

M 


II 


1 I 


i ■ 


h * 7 a 1 + £ COS 0 


Using the boundary conditions of pressure P ■ 0 at 5 ■ 0 and 5*1, 


we have 


p -f £ 


[#’■']*[■ 


e(l - 2$) sin9 - 2e cos8 


(6.17) 


Integrating the pressure using the half sommerfeld condition as given 
by Lund [58], the bearing forces are calculated to be 


del (6.18) 


f c - €<1 - 2 ^- 2 / 2 saijSiHi de j + 25 ( 2 ^ 2 =2g|i d6 ) <6. 
t ' E(1 - 2 «( 2 j ( ^ ds ) + 2i (‘ 2 / i 2 dfl ) 


where | - erf , ^ ( C 


The integral can be evaluated as 


(6.19) 


y-'z 

-2 / g s 9 , 31 " - 9 da - + 4 

Jn. h 3 - 


£ COS J Qq 

[l - e 2 cos 2 ®" 


for (1 - 2$) > 0 
for (1 - 2<J) < 0 


cos 2 9 


tt Cl + 2e 2 ) ( 2(1 + l£ 

(1 - e 2 ) S/2 “|{1 - e 2 ) S 


(6.20) 


tan o 


u‘ + (5 - 3a 2 ) a 2 . (3 - 5a*) + (5 - 3a 2 ) a 2 
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a u(l - a 2 u 2 ) 
(1 + a 2 u 2 ) 2 


a0 * 


2 

(1 - E 2 ) 1 ' 2 



+ for e > 0 

4 

- for e < 0 



a u(u 2 - a 2 ) 
(u 2 + a 2 ) 2 


( 6 . 22 ) 


where 


u 


A 


1 - COS0 


1 + COS0 


cosSq 


ell - 2$! 

/e 4 (l - 2$P + (2e)* 



fitted x, y coordinates by 

(6.23) 

(6.24) 

In order to verify the use of the above bearing force equations, 
a short journal bearing of L/D *0.5 illustrated by Kirk C6l3 is used 

as an example. The bearing used is 1 in long, 2 in diameter, 0.005 in 

clearance, and with lubricant viscosity of 1,0 x 10 reyns. When 

the bearing is located horizontally, the journal has a weight of 50 lbs. 


The bearing forces can be transformed into 


=|-(f r x + f fc y) //x z + y 2 Jtf 
(-f^ y + f x)//x 2 + y^Jcf 
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Figure 6.6 shows the transient orbits of a balanced rotor in the 
bearing calculated by the bearing force equations discussed. Note that 
the journal finally reached its equilibrium position where F vanishes 
and F^ equals the journal load of 50 lbs. Figure 6.7 shows the 
transient motion in the same bearing calculated by Kirk C61] in non- 
dimensional form. The transient response from the two independent 
approaches are in very good agreement, and thus the bearing force 
equations are verified. Another example is the transient orbit of 
the same bearing located vertically with an unbalance eccentricity 
ratio of 0.2 running at 4,000 RFM. Figure 6.3 shows the transient 
orbits from the bearing force equations and figure 6.9 from Kirk C6l]]» 
Again they are in very good agreement and thus further verifies the 
equations and computer program. 
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STRTION NO. 1 
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FROM BEARING FORCE EQUATIONS 
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6.3 Frequency Analysis of Transient Response Using Discrete Fast 

Fourier Transformation 

In the analysis of transient response of rotor-bearing systems, 
it may sometimes be difficult to interpret results from transient 
response orbits or from time-displacement plots, especially for a 
complex rotor system. The use of Fourier Transformation simulating a 
"spectrum analyzer" numerically by digital computer is likely to be 
a powerful technique in transient response analysis. It also 
provides information concerning the non-linear stability of the system. 

In applying the Fourier transformation, the response of the system 
in the time domain is transformed into the frequency domain as 


F (ioi) 


■/ 

-CO 


f(t) 


itot 


dt 


(6.25) 


Since the transient response calculated in the particular study is 
in discrete time steps, a discrete Fourier transformation is necessary. 


N-l 

F (iu;) -Y! f e~ i(2lTm n / N > m ■ o, 1, 2, ..., N-l (6.26) 
m £q n 


where m - frequency index 

N » total number of sample 

f ” n“ sample of f(t) 
n 

Using the above equations, the transient response of the system is trans- 
formed into discrete frequency responses which are the "densities" or 
"excitations" of the corresponding frequencies. In other x*ords, the 
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responses after the transformation are the magnitudes which these 
frequencies will be excited. 

A more efficient algorithm is the fast Fourier transformation 
[76, 78] by which the repetitions in the discrete Fourier transformation 
calculations are eliminated. With N is a multiple of P , the frequency 
responses of the system are given by 


m 


A + W m B 
m N m m 


0, 1, 2 , ... P — 1 


where 


m 


P-1 


n=Q 


f W 

an P 


mn 


P-1 


5 -S * *, W p 

ra ■*-“! 2 n + 1 v 
n=u 


mn 



(6.27) 


Since the Fourier transformation is applied to periodic functions, 
it is necessary to use the whole series of real time transient motion 
as sample input for one sample period. Also, in order to avoid over 
lapping of the periodic motions, a series of zeros may be attached at 
the rear part of the sample input such that each period is separated 
and will not affect each other. 


ft 
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To Illustrate the use of Fourier transformation in transient 
analysis* the transient motion of the simple mass model discussed 
in section 5.3 was used as an example. The rotor is run through 
a series of speeds ranging from 10*000 RPM to 35*000 RPM. The bearing 
coefficients and the internal damping values for each speed are given 
in Table 6.1. The bearing stiffness and damping coefficients are 
kept constant while the internal damping of the system varies with 
operating speed. Figures 6.10 through 6.15 show the transient 
motion of the rotor with various operating speeds. When the rotor is 
operating under 30,000 RPM, it can be seen from the figure that the 
transient response of the system decays with time until it settles 
into steady state motion. When the rotor is running at 30*000 RPM, 

Figure 6.14 shows that the rotor motion does not decrease with time 
and is almost constant. It means that the rotor is operating near its 
stability threshold speed* and the transient motion orbit is whirling 
near a limit cycle. The inside loop in the transient motion indicates 
the existance of large nonsynchronous components. When the operating 
speed is raised, for example, to 35,000 RPM as shown in figure 6.15, 
it can be seen that the rotor system is unstable. The transient response 
is increasing with time and the response orbit is growing. 

Using the Fourier transformation as discussed previously, the rotor 
transient motion can he transformed into frequency components and can 
be expressed in a Cambell or "waterfall" diagram as shown in Figure 
6.16. From this Cambell diagram, one can visualize more easily the 
stability, component response, and resonance speeds of the system. 
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Table 6.1 BEARING & INTERNAL DAMPING COEFFICIENTS 
FOR A SINGLE MASS ROTOR MODEL 
























Figure 6.14 TRANSIENT MOTION OF A SINGLE MASS ROTOR AT 30,000 RPM 
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Figure 6.16 FREQUENCY CAMBELL DIAGRAM OF A SINGLE MASS ROTOR 
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It can be seen that the large response component occurs at a syn- 
chronous operating speed of 10,000 RPM. This indicates that it is 
near one of the critical speeds of the system (707 rad/sec for first 
critical) . The decrease in magnitudes of the synchronous component 
and increase in magnitude of the non-synchronous components with 
speed indicates that the stability decreases with the increase of 
speed. The large non-synchronous component at 30,00QRPM occurs near 
7,000 RPM, which is at a multiple of one of the critical speeds of 
the system, shows the instability excited by the first critical speed 

frequency (N * 6,751 RPM or 707 rad/sec), 
ci 

The above example demonstrates the use of Fourier transformation 
in frequency analysis of rotor transient motion. Similarly, this 
stability analysis can be applied when non-linear bearings or other 
non-linear forces exist in the system while linear stability analysis 
of the system fails. The further application of this technique will 
be discussed with real machinery in the next section. (The computer 
subroutines used in this fast Fourier transformation analysis were 
provided by Dr. Jethro Meek, visiting professor in the University of 
Virginia.) 
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6.4 Correlation of Experimental Data with Modal Analysis 

As to correlate results of modal analysis to experimental data, 
the three-mass rotor discussed in section 5.2 is used as an example. 
The experimental rotor consists of three 9-pound disks located on 
the center span of an uniform shaft supported by two identical 
journal bearings. The shaft has a diameter of 1 in., and the span 
between the bearings is 21 inches long. The journal bearing has a 
clearance of 0.001 in., L/D » 1, and a lubricant viscosity of 

""5 

0.9 x 10 ib-sec/in. A schematic of the rotor is given in Figure 5.5. 
Using linear bearing stiffness, the rotor has a first undamped 
critical speed near 3000 KFM. Since all the masses are lumped near 
the center of the rotor, the second critical speed of the rotor is 
very high compared to the first critical (over 20,000 RPM). Figure 
6.17 shows the experimental Campbell (waterfall) diagram of the system 
at various operating speeds. It can be seen that the critical speed 
of the system comes in near 2500 RPM, and the dip of the response due 
to the machanical bow of the system occurs at 3200 RPM (as discussed 

in section 5.2). Figure 6.8 shows both the synchronous and transient 
response of the rotor at various speeds C563. 

It is also noted that the subsynchronous componenc grows signifi- 
cant beyond 6000 RPM, which is near the stability threshold speed of 
the system. The Instability of the system is due to the half-whirl 
motion of the supporting journal bearings. 

In using modal analysis, the rotor is modelled into 17 mass 
stations. Sine ' he second critical speed is much higher than the 
first ant! is far beyond the operating speed range, only the first 
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Figure 6.17 EXPERIMENTAL CAMBELL DIAGRAM OF THE 3 -MASS ROTOR 
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critical speed mode is used in this analysis. Transient responses 
of the system are calculated with nonlinear journal bearing forces 
(as discussed in the previous sections). Figures 6.19 shows the 
transient motion of the rotor center mass near the first critical 
speed at 2550 RPM. The rotor is stable at this operating speed and 
the transient response of the system goes into steady state motion. 

Figure 6.20 shows the transient motion of the rotor near the stability 
threshold speed (6350 RPM). The occurance of an inside loop in the 
transient response orbit indicates the half-whirl motion of the 
system. Figure 6.21 shows the transient motion of the system beyond 
the stability threshold speed (at 7000 RPM) . The rotor response is 
growing and does not settle into steady state motion. Note that the 
existence of the inside loop type of transient orbit at the beginning 
graduately becomes a 2 in 1 whirl ratio motion. For a purpose of fur- 
ther understanding , the transient motion was simulated for another 160 
cycles of transient motion. Figure 6.22 shows the transient motion of 
the center mass after 160 cycles and the transient orbit is settling 
into a form of limit cycle while the system is unstable. This phenomenon 
can only be predicted with the effect of nonlinear bearing force. With 
the presence of this limit cycle, oh* stability of the system may some- 
times be very difficult to interpret from transient orbits, and a 
frequency spectrum analysis of the transient response will be very 
useful. 

The Fourier transformation discussed in the previous section is 
applied to the transient motion calculated. A Cambell diagram using 
the results of the transformation is given in Figure 6.23. Note that 
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Figure 6. 20 TRANSIENT MOTION OF THE CENTER MASS AT 6350 RPM 
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Figure 6 * 2 3 CAMPBELL DIAGRAM OF THREE-MASS ROTOR USING FOURIER TRANSFORMATION 
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Che diagram Is very similar Co Che experimental daCa (critical speed 
occurs near 2550 RPM). The lack of higher nonsynchronous components 
(2 or 3 times running speed components) in Cambell diagram as compared 
to the experimental data is due to the fact that perfect symmetrical 
rotor is assumed, and only one basic critical speed mode is used in 
this simulation. If more higher modes can be incorporated in the 
analysis, a more accurate simulation will be obtained. From the above 
investigation, it can be concluded that the modal approach discussed 
in this study can be a fast and powerful technique in predicting 
dynamic behavior of rotor-bearing systems. 
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The SSME turbopumps are presently under development by Rocketdyne 
division of Rockwell International. The oxygen pump consists of a 
single rotating shaft mounted in flexibly supported rolling element 
bearings. The overall rotor length is 21.8 in and weighs about 78 lbs. 

The rotor consists of a two-stage turbine drive section and a pump 
section with an overhung boost Impeller that supplies high-pressure 
liquid oxygen to the Space Shuttle Main Rocket Engine at a full power 
level (FPL) speed of approximately 31,200 RPM. The oxygen pump 
rotating assembly is illustrated in Figure 7.1. The minimum, nominal, 
and emergency operating speeds for this turbopump are 20,890, 29,250, 
and 31,160 RPM respectively. 

In order to simulate the dynamics of the pump, the rotor is I 

divided into a 24-mass-station shaft. The rotor weights and their 
mass inertia effects are lumped at the mass stations. Figure 7.2 
shows the computer simulation of the oxygen pump rotating assembly. 

The rotor geometric properties used in this study is given in Table 7.1. 

In this simulation, bearing 1 and 4 are the locations of the seals 
while bearing 2 and 3 are the supporting ball bearing locations. For 
critical speed analysis, a combined seal stiffness of 25,000 lb/in is j 

used in bearing 1 and 40,000 lb/in in bearing 4. The pump bearing 
(bearing 2) is assumed a stiffness of 2,200,000 lb/in and turbine 
bearing (bearing 3) of 3,200,000 lb/in. The critical speeds calculated 
are 13,266, 47,787, and 58,769 RPM. A set of the critical speed mode 

■ ■ :? 

I 

shapes is given in Figure 7.3. Table 7.2, 7.3, and 7.4 show the j 
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STATION 

NO. WEIGHT 

LENGTH 

SHAFT OIA. 

SHAFT OIA. 

I 

IP-PULAR HOH. 

IT-TRANS. HOH 


UP) 

(IN. t 

OUTSIDE 

INSIDE 

(IN++4 ) 

(LP-IN*42» 

ILB-IN**2J 

1 

3.045 

• 510 

2.100 

.610 

.95 

6.211 

3.710 

2 

.000 

.560 

2.810 

.750 

3.04 

0.000 

.0.000 

3 

3*041 

.62Q 

... 2*6.20 

.750 

2.30 

4.327 

2.571 

4 

• 000 

• 938 

2.000 

.750 

.77 

0.000 

0.000 

5 

1.290 

.773 

2.000 

.750 

.77 

.758 

• 444 

6 

• 000 

.750 

1.450 

.750 

.20 

0.000 

0.000 

7 

• 000 

.375 

1.720 

.750 

.41 

0.000 

_ 0.000 

8 

2.540 

.315 

2.020 

.750 

• 80 

2.386 

2.230 

9 

• 000 

.370 

2.300 

.750 

1.36 

0.000 

0.000 

10 

3.085 

1.310 

2.620 

2.000 

1.53 

12.651 

6.808 

11 

6.625 

1.330 

3.600 

2.000 

7.46 

36.767 

20.254 

Um 12 

6.695 

1.600 

3.600 

2.000 

7.46 

35.594 

18.420 

H 13 

5.901 

2.110 

2.620 

2.000 

1.53 

14.487 

10.086 

V 14 

2.70 2 

.740 

2.080 

.750 

.90 

2.746 

2.810 

m .is 

• 000 

1*360,. 

2.600 

.750 

2.23 

0.000 

0.000 

FU* 16 

3.356 

1.490 

2.600 

.750 

2.23 

3.248 

1.924 

17 

4.195 

2.000 

2.620 

1.050 

2.25 

6.572 

4.640 

18 

2.346 

1.600 

2.460 

1.050 

1.74 

3.278 

1.941 

19 

• 000 

.770 

2.460 

1.050 

1.74 

0.000 

0.000 

20 

13.467 

.580 

2.860 

2.060 

2.40 

158.962 

60.104 

.. 21 

3.414, 

1.200 

3.300 

2.650 

3.40 

15.688 

6.407 

22 

.000 

.450 

4.000 

3.640 

3.95 

0.000 

0.000 

23 

13.825 

.100 

4. 000 

3.640 

3.95 

157.768 

79.438 

24 

.000 

0.000 

4.000 

3.640 

3.95 

0.000 

0.000 

i 

77.729 

21.850 
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Table 7.1 


Rotor Geometry of the Space Shuttle Oxygen Pump 
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CRITICAL SPEED NO* 1 

1 3 266.1 R P M "" 

MODAL _MASS * .... .067 LB-SEC**2/IN 

JCJH.E 

.DSIH.ONQR.MAL- MQOE SHAPE.S 


SIAXJQM — 

.TRANSLATIONAL 

ROTATIONAL 

1 

.18449 

-.13232 

2 

.11702 

-. 13226 

3 

.04296 

-.13224 

4 

-.03901 

-. 13218 

5 

-.16282 

-.13194 

6 

-.26346 

-.12709 

7 

-.34146 

-.07534 

8 

-.36633 

-.05667 

9 

-.38269 

-.04696 

10 

-.39866 

-. 03913 

11 

-.42969 

-.00608 

12 

- .-43172 

...... ...0034 5 

13 

-.41484 

.01825 

. .. 14 

-.25331 

.13974 

15 

-.11931 

.22343 

li>_ 

- .230.36 

2.9.21 .6 

17 

.72150 

. 36468 

18 

1.52897 

.43864 

19 

2.27647 

.49244 

20 

2.66306 

. .'1077 

21 

2.96115 

.51686 

22 

. 3.58517 

. 52256 

23 

3.82057 

,52356 

24 

3.87293 

- . 52.3 58 . 


Table 7.2 Oxygen Pump Orthononnal Mode of the First Critical Speed 
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CRITICAL SPEED NO." 2 “ 47787. ORPM 

MOD AJ:_ N ASS * .079 LB-SEC**2/ IN 

TMJRT.HONOMA L_ MOD £ SHAPES 


STATION 

TRANSLATIONAL 

ROTATIONAL 

1 

3.56663 

-1.68785 

2 

2.70823 

-1.67735 

3 

1.77043 

-1.67157 

4 

.73853 

-1.65623 

5 

-.77008 

-1.55589 

6 

-1.92483 

-1.42248 

7 

-2.72865 

-.68049 

8 

-2.94259 

-.45560 

9 

-3.06913 

-.34635 

10 

-3.18226 

-.26397 

i 1 

-3.33644 

.03791 

12 

-3.24133 

.10456 

13 

-3.01773 

.17147 

14 

-2.37919 

.38562 

15 

-2.08771 

.39075 

16 

-1.59233 

.32211 

17 

-1.19617 

.21716 

18 

-.85277 

.13643 

19 

-.66471 

.10603 

20 

-.58324 

.10735 

21 

-.52104 

. 10744 

22 

-.39072 

.11048 

23 

-.34058 

.11242 

24 

-.32934 

— • 11242 .. 


Table 7.3 Oxygen Pump Orthonormal Mode of the Second Critical Speed 


58769.1RPM 


CRITICAL SPEED NO. 3 

MOD.AL .MAS S • <016 L B-S EC** 2 /I N 

IHE__ORTHO NORMAL. MODE. .SHAPES. 


.S TAT ION IRANS_LAII.0N.A1 RQI AIXQflAL. 


1 

7.81703 

-1.79822 

2 

6,90474 

-1.77582 

3 

5.91414 

-1. 76081 

4 

4.83445 

. -1.71840 . . 

5 

3.35961 

-1.40304 

6 

__ ... 2.39056 

-1.11893 . 

7 

1.85655 

-.35230 

8 

1.75079 

-.21748 

9 

1.68986 

-.17121 

10 

1.63122 

. -.14724 

11 

1.46329 

-.12233 

12 

1.29803 

-.12729 

13 

1.08770 

-.13562 

14 

.77327 

-.15217 

15 

.66630 

-.13413 

16 

.50256 .... 

-.10279 

17 

.37980 

-. 06535 

18 

.27746 

-.04141 ... . 

19 

.21521 

-.03955 

20 

. 18277 

-.04544 

21 

.15589 

-.04736 

22 

.09707 

-.05092 

23 

,07383 

-.05238 

24 

.06859 

-.05238 


Table 7 . 4 Oxygen Pump Orthonormal Mode of the Third Critical Speed 



orthonormal translational and rotational inodes of the pump. These 
critical speeds and modes calculated are very simular to those provided 
by Rocketdyne and Childs C42, 43, 443* Since the second critical speed 
is far above the full-power level operating speed range, the prime 
concern of this study will be on the dynamics of the rotor operating 
through the first critical speed and the stability of the system. 

From the mode shapes given in Figure 7.3, it can be predicted that 
large response will occur at the turbine end of the rotor when operating 
through the first critical speed. It was also believed that the ball 
bearings used will not provide adequate damping to the system such that 
a very high amplification factor will result or possibly instability 
problems. The stability and forced response analysis of the oxygen 
pump will be discussed in the next section. 
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7.2 Stability Analysis of Oxygen Pump 

The stability of the system Is found by examining the real part 
of the calculated eigenvalues which govern the growth and decay rate 
of the rotor motion. As being discussed in Chapter 4, a positive 
real part of an eigenvalue indicates an unstable rotor whereas a 
negative real part indicates a stable one. The relative stability of 
a given mode is given by the magnitude of the real part, which is 
based mainly on the magnitude of effective damping in the system. For 
stable modes, an estimate of the peak response speed and amplification 
factor can be calculated through modal resolution of that particular 
mode. 

In the analysis of the space shuttle main engine oxygen pump (SSME- 
HPOTP) , because of the lack of damping contributions from the ball 
bearing supports, stability of the system becomes one of the major 

concerns of design. A large part of the damping in the system is ob- 
tained from the seals, which are the main design parameters in the stabi- 
lization of the machine. Childs C443 modelled these axial-flow seals 
in 7 different locations in the system. To simplify calculation, the 
seals were lumped into 3 major groups in this stability analysis. 

Without the consideration of any effects from the turbine and impeller 
of the system, the damped natural frequency of the pump was found to 
be -5.49 + 1494.3 rad/sec, which indicates that the system is stable. 

The damped mode shape of the system is given in Figure 7.4. Note that 
extremely high amplitude of response occurs at the turbine end of the 
system which agrees with the large values in the calculated modal 













Figure 7.4 DAMPED MODE SHAPE OF THE OXYGEN PUMP AT FIRST CRITICAL SPEED 
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amplification factor of 136. Further investigation of rotor response 
through the first critical speed will be discussed in the next section. 

To simulate a more realistic situation in the system, a turbine 
cross coupling effect of 4000 lb/in is assumed. Damped critical speed 
calculations showed that the system is unstable with a natural frequency 
of 14 + i 1475.3 rad/sec. This calculation shows that the system is 
marginally stable without any turbine effects, and even with a small 
instability driving force from the turbine, the system is unstable. 

In order to stabilize the system, a change of seal design is necessary. 
The redesign of No. 4 seal (group 2) with extended seals near the 
turbine and seal No. 6 (group 3) with modified 3-step seals at the 
turbine seems to be a more stable design. The seal coefficients used 
in the original design and the modified design are given In Table 7.5. 
Using the above modified seal design and with the turbine forces, the 
damped frequency calculated is -67 + i 2342.5 rad/sec, which indicates 
a stable system. Thus it can be concluded that a major redesign of the 
seals in the system can significantly change the stability conditions 
of the pump. 
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7.3 Forced Response Analysis of Oxygen Pump 

A simulation study has been performed to examine the steady state 
and transient rotor dynamics of the space shuttle oxygen pump. This 
simulation confirms the previous results of modal amplification factor 
and stability analysis. The rotor model used is simular to the one 
discussed in the previous section. Using the original seal design 
discussed by Childs [44] and without considering turbine force, a steady 
state unbalance response study was performed for a range of operating 
speeds from 0 to FPL (Flill power level) speed of 32,000 RPM. With rigid 
ball bearing supports (2,200,000 lb/in stiffness for pump bearing and 
3,200,000 lb/in stiffness for turbine bearing) and an unbalance of 
6 gm-in at the turbine, the rotor experiences a very high level ampli- 
tude of vibration at its first critical speed. Table 7.6 shows the 
results of the steady state unbalance response analysis at various 
operating speeds. As discussed in the last section, the turbine end of 
the pump has the most violent vibration problem with 54 mils of steady 
state response at the first resonance. In this case, the response of 
the second resonance speed (over 40,000 RFM) is not considered because 
it is well beyond the operating speed range. However, the magnitude 
of the steady state unbalance response at FPL of 32,000 RPM is within 
an acceptable range, and thus the problem lies in the operation of the 
pump through its first critical speed. 

A further study of the problem is the transient analysis of the 
rotor at its first critical speed. Since it is a common occurance that a 
rotor may exhibit a higher magnitude of vibration during deceleration than 


LOCATION 

Seal No. 1 
Pump bearing 
Turbine bearing 
Seal No. 2 
Turbine 


14,200 

1st 

20,890 

29,250 

31,160 

RESONANCE 

(MINIMUM) 

l (NOMINAL) 

i 

(EMERGENCY) 

i 

0.25 

0.005 

0.003 

0.003 

3.26 

0.06 

0.042 

0.040 

5.33 

0.10 

! 

0.069 

0.065 

36,6 

0.67 

i 

0.47 

! 0.45 

54 

1.03 

0.73 j 

0.68 

l_ 


Table 7.6 STEADY STATE UNBALANCE RESPONSE (in mils) 
OF OXYGEN PUMP TOTH 6 gra. in. UNBALANCE AT TURBINE 
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acceleration, a transient response study of the pump during decceleration 
through its first critical speed was performed. With the same model used 
in steady state analysis, transient motion of the pump was calculated 
at 14,500 RPM with a decceleration rate of 940 rad/sec 2 . In order to 
have a closer simulation of the real situation, rotor steady state motion 
with small perturbation is used as the initial conditions . Figure 7 . 6 
and 7.7 are the transient simulations at the pump and the turbine bear- 
ings respectively. Figure 7,5 and 7.8 are the transient simulations at 
the seal locations. Figure 7.9 is the transient simulation at the 
turbine end of the rotor. Note that the turbine undergoes a very large 
amplitude of response of 24 mils at its resonance speed. Figure 7.8 also 
predicts very large transient motion at the seal location when going 
through the first critical speed of the system. This large motion at 
the turbine end of the pump will cause rubbing at the floating ring 
seal or even pump failure. Figure 7.10 shows the forced response of the 
pump at the turbine from both steady state and transient solution. Note 
that the amplitude of the steady state response is about 80 percent higher 
than the transient. Thus with steady state unbalance response analysis 
alone, the simulation may be quite misleading. However, in this case, 
both solutions predict very high amplitude of vibration at the turbine, 
which may cause pump failure. 

With the above analysis of the oxygen pump, it can be concluded 
that a redesign of the system is necessary. The introduction of extended 
seals or 3-step seals may add more damping to the system and thus reduce 
the amplitude of vibration in the system. The rubbing condition indicated 


















is now under investigation by both NASA and Rocketdyne personnel. A 
test program is developed to determine whether this rubbing condition 
will arise and whether it will affect the integrity of the operation of 
the pump. 
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VIII. CONCLUSIONS 

8.1 Summary and Conclusions 

This analysis presents and develops a compact modal analysis which can 
be used to determine its results of steady state response, transeint 
simulation, and stability of flexible rotors on flexible supports. 

The transient and stability models developed included both linear and 
nonlinear bearing and support characterisltcs, The transient results 
were also presented in the form of frequency spectrum. The results 
and conclusions may be summarized as follows: 

1. A modal method has been developed using undamped modes to 
approximate the dynamic behavior of rotor-bearing systems. Modal 
transformation of the generalized equations of motion into modal 
equations of motion using the undamped modes can significantly reduce 
the number of equations to be solved without losing the generalities 
of bearing cross-coupling effects and influence of gyroscopic moments. 

This reduction of degrees of freedom can greatly reduce the computa- 
tional effort and cost and, thus, make possible the transient analysis 

i 

of large, complex rotor systems. 

2. The generalized equations of motion for an n-mass rotor are 
derived by the direct stiffness method including the effects of nonlinear 
bearing characteristics, shaft bow, skewed discs, rotor unbalance, and 
acceleration. The generalized shaft stiffness matrix is given in 

terms of the Individual shaft sectional geometry and material properties. 
This procedure is more direct than the finite element type of formul- 
ation as the stiffness submatrixes are directly and uniquely given and 
may be easily stated for any rotor • 
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3* Since the JV.aft stiffness matrixes are completely defined j 

for a given rotor, the shaft potential energy function V may be j 

obtained. The ability to write an explicit formulation of the shaft 
elastic potential energy function thus allows one to readily derive 
the dynamical equations of motion of multi-level rotor systems, such 
as two spool gas turbines or rotors mounted in flexible casings. 

4. Chapter 2 states the use of Guyan Reduction to eliminate 
all rotational coordinates in which rotational inertia effects are 
not present. This procedure is necessary for direct integration of 
the equations of motion. 

5. The shaft mass and stiffness matrices of the system can be 
uncoupled using the orthonorraal modes of the undamped system. The 
modal coupling terms result from the bearing cross coupling and damping 
and gyroscopic effects. The other external effects, 'such as shaft bow 
and unbalance and bearing nonlinearity can be placed in the right-hand 
side of the modal equations. This eliminates the formulation and 
storage of large blocks of shaft mass and stiffness matrices which 
are required in other direct integration methods , 

6. Uncoupled modal analysis based on the assumption of propor- 
tional damping may further simplify the modal equations of motion, 
but it is often not accurate for rotor systems with seals or hydro- 
dynamic bearings. 

7. The incorporation of moderate amounts of bearing damping in 
the rotor system can cause a considerable shift of the rotor resonance 
speeds from the values predicted by the undamped critical speed calcul- 
ations. 
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8. Damped complex eigenvalues, stability, and steady state 
unbalance response of the rotor system can be rapidly determined 
using the undamped modes which are essential for design and are 
relatively easy to obtain by the designers. 

9. The use of modal analysis offers a new approach to balancing 
rotors with shaft bow and skewed disc effects. This can be achieved 
by equating the modal excitation by unbalance eccentricities, shaft 
bow, and disc skew for the particular mode that needs to be balanced. 

10. The calculation of rotor peak unbalance response speed and 
its corresponding amplification factor using the simple single-mass 
equation can provide the designers good design parameters in a simple 
manner. 

11. The accuracy of modal analysis can be Improved by using a 
larger number of modes. As a general rule, an error of less than 5% 
can be achieved if mode shapes of 5 times the operating speed are 
incorporated into the system. 

12. If a large number of modes are incorporated into the system, 
the use of either the average support stiffness modes or the free-free 
plus two rigid body modes will give very good results. When the 
number of modes used are restricted by computational time or cost, 
the use of average support stiffness modes seems to be a better selec- 
tion. 

13. In the transient analysis of multimass rotor by the direct 
integration of the point mass stations, numerical instability can 
occur, this problem is greatly aleviated by the modal method while 
reduces the number of - equations of motion. The Newmark Beta 



method, which is unconditionally stable at g * 1/4, is proven to be 
superior especially when nonlinear forces are presented in the system 
than the traditional modified Euler integration procedure. 

14. The phenomenon of passing through regions of instability 
has been demonstrated by the stability analysis of flexible rotor- 
bearing models and verified by transient simulation. 

15. Steady-state response information will be essential for 
large complex rotor simulation to avoid costly, undesired transient 
behavior. Zero initial conditions may be acceptable for impact 
unbalance studies, but instabilities due to aerodynamic excitation, 
internal damping, and fluid film bearings are best studied from steady 
state initial conditions with small pertubatlons. 

16. The existance of non-linear support bearing forces can 
change the transient response motion of the system considerably from 
those with linear support forces. The half-whirl transient motion 
of the system with journal bearing supports verifies the above con- 
clusion. 

17. The use of numerical fast Fourier transformation provides a 
new way of interpretation of numerical transient response results. 

This transformation of transient motion into a frequency spectrum 
makes the stability analysis of nonlinear systems possible. 

18. The correlation of experimental data with modal analysis 
not only verifies the use of modal analysis and numerical Fourier 
transformation, it also provides deeper understanding of the excitations 
of different modes and the accuracy of system simulation. 


204 


8.2 Suggestions for Future Research 

This analysis has developed computer codes for the simulation of 
large , complex rotor-bearing systems. Additional design criteria can 
be produced from the modal method presented and will be of great interest 
to compressor, turbine, and jet engine manufacturers. Some areas 
that require further investigation are as follows: 

1. With appropriate boundary conditions and mode shapes, the 
modal approach in predicting dynamic behavior of rotor systems can be 
easily expanded into the analysis of multi-level rotor systems. 

2. The coupling of the corresponding axial modes into the system 
can make possible the analysis of rotor wrapping and torsional problems. 
This also provides further research in the effects of incorporating 
axial and rotational resisting bearings such as a balance piston. 

3. The effect of squeeze film dampers on stability and transient 
response of the system. 

4. Further extension on the use of numerical fast Fourier trans- 
formation in interpretation of transient motion. 

5. The incorporation of base motion effect in the transient 
analysis of the system. This can be further used to simulate siesmic 
effects on rotor-dynamic behavior such as nuclear water pumps. 

6. Extensive study of the effects of change of acceleration rate 
to forces transmitted and transient response of the system. 

7. The inclusion of thermal effects in stability and forced 
response analysis of the system. 
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APPENDIX A 


Dlac Rotational Equations of Motion - Langrangian Approach 
Consider a massive disc attached to a massless shaft with 
<t> ■ precession angle about z-axis 
0 * inclination of the shaft away from z-axis 
SI » rotation about the axis of the shaft 


The rotation of the disc can be described by standard Euler angles, 
however, it is shown later in the section that small deflections may 
be replaced by more physically obvious angles, 8 and 8 is the 
inclination of the shaft away from z-axis projected into the x-z plane 
tj> is a similar projection into the y-z plane. 

Considering only the rotational effects of the disc, it is not 
immediately obvious how rotation can be represented by the 8 and ¥ 
coordinates. In order to apply the Euler angles <jt, Q, and ft, the 
following transformations are necessary. 


V 


\ 


rT > 






cos <f> 

sin <j> 

0 

- 


-sin $ 

cos <j> 

0 


. 

0 

0 

1 



1 

0 
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cos 9 

sin 9 
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0 

- sin 9 

cos 9 



CO 9 ft 

sin ft 
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at 


-sin ft 

cos ft 

0 
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r - r -' » — 
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The physical rotational transformation Is given in Figure A.l, 
In addition to these rotations, the permanent skew of the disc, 
t, can also be represented by a fourth transformation 


^ I 0 cost slnT 


0 -sinT cost 


where t is in the opposite direction cf 9 and ¥ in the x-z and y-z 
plane as given in Figure A. 2. Note that the xyz (inertia) fram is 
fixed in space while the x'y'z' (shaft) frame is fixed with the end 
of shaft, and xyz (disc) frame is fixed with the disc. 

Using Euler angles, the angular rotation of the disc can be given 


< . < • < • . < 
a) ■ 4>'ru ■K Q : r T^ + n V 


(© cosQ + 4>sin 0 sin J2) n „ 


+ ( -0 sin 8 + <fesin 0 cos fl) n 


+ (d + 4»cos © ) u 


< < . < 
(i) j + 0T + 0» 3 


The moment of inertia matrix in the disc frame is 


CO m 


i t o o 

0 I t 0 

0 0 I 


and in shaft frame 



& 



* A + 

x y z 



0 

I coa 2 x + I sin 2 T 
t P 

(I t ~-p)sinTCOST 


0 

(I„-I )sinTC08T 
c p 

I^sin^T + x cos 2 t 

t p 


The kinetic energy due to rotation is 



- 



I + (to 2 I -Ho 2 I ) cos 2 t + % (to 2 I 

t 2 t 3 p' 2p 


•Ho 2 I ) sin 2 T 

3 t 


-Ho 2 <o 3 (I -I )cosx sinx 
t P 

Assume that t is small and linearized by 

cos x =• 1 
sin T - X 
oin 2 t ■ 0 


and the kinetic energy expression reduces to 


T * H (to 2 + to 2 )i + h I w 2 + t(i«.-i ) to 0) 

R 1 2 t p 3 tp 23 
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Also using the small angle approximation to 

e 2 

cos 0 ■ 1 J- 

sin 9*0 

Then 

^ 0 2 + 0 2 ) + % I (Q + <J>) (J2 + <f» -<J>i..0 2 ) 

r 

+ v( x t~V ^ + ^ (i © cos a - l sin a) 

Also, the Euler angles can be transformed into the generalized 
coordinates by the small angle approximations as the inclination 
projection of the shaft can be represented by 
0 ■ 0 COS <t> 

V * 0 sin ff> 

For small 0, the angle $ and ft almost lie in the same plane and can 
be approximated as 

<J> + SI ■ wt + 8 + ir • 

where 3 is the angle between the maximum disc skew and the shaft 
reference mark. 

Using the above relationship, the following identities exists 
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$ 1 « e* + ■ ♦* 

© 2 i - ejr + 

‘0 2 + ; © 2 (f 2 - 0 2 + if, 2 ' 

, * » * 

0 $ cos Q - 0 sinft - 9ain (ait +8) - 4>cos (ait +8) 

and using this expression, Che kinetic energy can be written as 

T - % ui 2 I + lj I (Q 2 -Hf; 2 ) + igwi (0^, - eji) 

tt-Pt p 

+ Tio(I -I ) (i cos (a»t+ 8) - Qsin (ait + 0)) 

From Lagrange's equation. 


a /* t r\-*V 
3c IsH 0 


the 0 equation becomes 


1 t 0 + ul p * + % - t(X p -l t )[a) 2 cos(ait + 9) 

+ a» sin (ait + 0)J '+ F Q 




and the ^ equation 


I t * - «I p 9 - ^X p 9 = t(I p - I t ) Qo 2 sin(uit + 8) 
- aicos (ait + 8)] + F^ 
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APPENDIX B 

BASIC EQUATIONS OF MOTION FOR A BOW SHAFT 


The effects of shaft mechanical bow can be easier to under- 
stand by the study on a simple rotor-bearing system.. A three-mass 
rotor with spring and damper supports given as in Figure B1 is used 
as an example* The equations of motion of the system can be written 
as follows 
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i h -l h 
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S V 
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where 


w ■ x - x^ 

x » total displacement of shaft 
x." mechanical bow of shaft 


(B.l) 



Or equation (C.l) can be written as 

Mx* + Cx + K^x + K w x - K w x d + F(t) (B.2) 
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where K x. is the shaft bow effect of the system. This effect can 

W G 

be put into the right-hand side of the equation and considered as 
part of the driving force of the system. 

For using the modal analysis, the undamped modes are 

calculated by solving the homogeneous matrix equation of 


Let 


Mi* + 

W - 1 Aj l*.,! 


(B.3) 


(B.4) 


then 


0 £ W * C c l£ 


n 


3-1 


j»l 


+ C K J £ a 3 

3-1 


C\] l* d ( 


(B.5) 


Premultiply euqation (B.5) by ^ and using the orthogonality 

conditions derived in Chapter 3, the following equation results 


M i A i + 


£ % + V a 4 - loj 1 jC K „> d f + {*(«}} «- 6 > 
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APPENDIX & INTEGRATION PROCEDURES 

* 

Initial conditions provide y » y . From equations of motion 

n n 

calculate y 


n 


1. Starting conditions (using Modified Euler) 


*£i ■ K * At \ 


y n« ‘ + ^ + V 


Calculate y , from equations of motion 
nxl 


M Vi - M =$ 


2, Iternative procedure (Newmark Beta method) 


♦<*•«.* +AC/..CP) ..\ 

“ n-KL 2 \ y ti+l y n j 


o$ v 


y n+l' L ^ “ y n + y n At + (At) 4 [y n 3 + 6 y^ At 2 


Then 


- «j £2° - M ’T 
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The special features of computer program Modal 1 can be listed as 
follows : 

1. Calculation of undamped critical speeds of rotor-bearing systems 
using matrix transfer method 

1.1 with linear spring stiffness 

1.2 maximum of 100 mass stations and 10 bearings 

1.3 with or without the effects of transverse moment of inertia 

1.4 calculates normalized and orthonormal rotational and transla- 
tional mode shapes 

2. Stability and damped natural frequency analysis using the undamped 
modes 

2;l damped critical speed calculations with two dimensional bearings 
(8 bearing coefficients) 

2.2 includes effects of moment resisting bearings (32 bearing 
coefficients) 

2.3 amplification factors and peak response speed from single mass 
theory 

2.4 damped three-demonsional mode shapes of the system 

3. Steady state unbalance response of the system 

3.1 effects of mass unbalance 

3.2 effects of shaft bow 

3.3 effects of disc skew 

3.4 effects of external force 


3.5 


gyroscopic effects 


227 


3.6 results are tabulated in response vs speed and also in terns 
of elliptical orbits 

4. Transient response analysis of the system 

4.1 effects of unbalance 

4.2 effects of disc skew 

4.3 effects of shaft bow 

4.4 effects of nonlinear bearing forces (using hydrodynamic 
bearing theory) 

4.5 effects of rotor acceleration 

4.6 plots of transient orbits and transient vs time plots 

4.7 choice of initial conditions (zero or steady state with small 
perturbation) 
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INPUT INSTRUCTIONS FOR PROGRAM MODAL l 

1. Read 3 comment cards (1 to 80 columns) 

2. N, NB, NNLIN, NMB, NF, NU, NS, NBOW, ISTAB, IMODE, ISKU, NUFPT 
(1215) 

N * No. of mass stations (max. 100) 

NB *» No. of regular linear bearings (max. 10) 

NNLIN ■ No. of nonlinear bearings (max. 5) 

NMB ■ No. of coment resisting bearings (32 coeff.) (e*g. 

balance piston) (max. 3) 

NF - No. of external force (max. 10) 

NU * No. of unbalance (max. 10) 

NS * No. of skewed disc (max. 10) 

NBOW = 1 bow shaft (Input shaft bow data) 

* 0 no shaft bow 
ISTAB » 0 calculates stability 
* 1 no calculation 

IMODE - No. of damped mode shapes desired (if = 0) no mode 
shape calculation 

ISKU ■ 0 calculates unbalance response 
» 1 no calculation 

NUFPT - No. of station. need to printout for unbalance 
response analysis (max. 10) 

3. ISKIP , NSTEP , NCYCLE, NITP, NINT , NPL0T , N0RBIT , NTIME, NSPEED , 
NINC, NOPT, NT (1215) 
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ISKIP “ 0 calculates transient orbit 
■ 1 no calculation 

NSTEP « No. of steps of Integration per cycle 
NCYCLE “No. of cycles (NSTEP*NCYCLE < 4000) 

NITP - No. of steps per printout 

NXNT * 1 Newark — IS intergration (with Iteration) 

■2 Euler integration 
NFLOT =» 0 plots of transient desired 
8 1 no plots 

NORBIT ■ No. of transient orbit stations desired to be 
plotted (“NT) 

NTIME - No. of stations to be plotted in response vs time 
curve (“NT) 

NSPEED “0 


4. 


5. 


NXNC “ 0 input initial condition 

“ 1 initial- conditions from steady state orbit with small 
perturbation 

NOPT “ Q 

NT “ no. of station for transient printout (max. 10) 

LLBD (J), J - 1, NB (1015) Skip (4) and (5) if NB - 0 Bearing 
location station numbers. 


V J) 


(J), K (J) r K (J), C 

yx yy xx 

(8G10.3) NB Cards 


(J), C (J), C (J) 
xy yx 


(Bearing Coefficient) (skip if NB * 0) 


6. LLNB(J) , NLB(J) , VIS(J), ANR(J) , ANL(J) , ANC(J), J “ 1, NNLIN 
(skip if NNLIN “ 0) (2X5, 4G10.2) 
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LLNB(J) » station no. of Jth nonlinear bearings 
NLB(J) > bearing no* of Jth nonlinear bearings 
VIS(J) ■ viscosity of lubricant (lb/in 2 ) 

ANR(J) > radius of Jth bearing (In) 

ANL(J) ■ length of Jth bearing (in) 

ANC(J) * clearance of Jth bearing (in) 

*A linear bearing station must be assigned to a nonlinear bearing 
even with zero linear stiffness and damping. 

7. LLNB(J) , J - 1, NMB (3X5) (skip 7 and 8 if NMB ■ 0) 

LLNB(J) » Station no. of the Jth moment resisting bearing 


NMB sets of 

card. 

each 

set 4 

cards 

(8610.3) 

Bk , 

Bk fl , 

Bk , 

Bk * $ 

Be » 

Be a * 

Be , 

Be , 

XX 

x9’ 

xy 

XV 

XX 


xy 

xy 

Bk 9x- 

Bk 00’ 

Bk 0y’ 

Bk 0^’ 

Bc e*’ 

Bc 00 * 

B v 

Bc 0^ 

Bk , 

Bk 

Bk , 

Bk . . 

Be , 

Bc o» 

Bc , 

Be ,1, 

y* 

y® 

yy 

y'l' 

yx’ 

y® 

yy 

yl|) 

Bk. , 

<JlX 

B V 

B V 

B V 

Be, , 
ipx* 

Bc ^e» 

*v 

Bc # 


These are the 32 bearing stiffness and damping coefficients for 
a moment resisting bearing. The first subscript represents the 
direction of force, and 'the second subscript represents displace 
ment. 

x » x-direction displacement 

9 a rotation at positive y-axis (right-hand rule) 

y a y-directlon displacement 

if) ■ rotation at negative x-axis (right-hand rule) 


9. NGYR, E, SPEEDl , SPEED ANGACL, FSPEED, BETA (15, 5x, 5G10.3) 


NGYR • X calculation shaft gyroscoplcs 
• 0 no shaft gyroscoplcs 

-6 

E ” Section Young's Hoducus x 10 (E “ 30. for steel) 

SPEEDl » Rotor operating speed (RPM) (use for gyroscopic 
calculation in damped modes) 

SPEED2 ■ use as initial speed for transient 
ANGACL - rad /sec 2 (use in transient cal.) 

TSPEED » 0 

BETA = Beta parameter used for Newmark beta integration 
(usually ■ 1/6) 

10. EXTW(J) , DX(J) , DEXT (J) , DINT(J), RP(J), RT(J), ZM6(J), R0(J), 

J - 1, N 

(N cards) (8(F10.3)) 

EXTW(J) =» external weights at J-mass station (lb) 

DX(J) - length of Jth element (in) 

DEXT(J) “ external diameter of Jth element (in) 

DINT(J) * internal diameter of Jth element (in) 

RP(J) » polar moment of inertia at Jth station (lb-in 2 ) 

RT(J) » transverse moment of inertia at Jth station (lb-in 2 ) 
EM6(J) ■ Young's modules of Jth element x 10 6 (»E lb/in 2 
if set to zero) 

R0(J) ■ density of Jth element (* 0.283 lb/in 3 if set to zero) 

11. LLFF(J) , FX(J), FY(J) , J - 1, NF (15, 5x, 2G10.3) NF cards, 
skip if NF « 0 
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LLFF(J) » station no. of Jth external force 
FX(J) ■ forces In x-direction (lb) 

FY(J) » forces in y-direction (lb) 

12. LLUF(J) , UX(J) , UY(J) , J - 1, HU 

(IS, 5x, 2G10.3) NU cards, skip if NU - 0 
LLUF(J) - station no. of Jth unbalance 
UX(J) » unbalance at x-direction (oz-in) 

UY(J) - unbalance at y-direction (oz-in) 

13. LISK(J), FSK(J) , PSK(J) , J - 1, NS 

(15, 5x, 2G10.3) NS cards, skip if NS • 0 
LLSK(J) ° station no. of Jth skewed disc 
FSK(J) * maximum skew of the disc (rad) (positive skew is 
opposite to positive 0_) 

PSK(J) * angle between maximum skew to the x-axis (rad) 

14. LLUT(J), J » 1, NUFPT (1015), skip if NUFFT m 0 

LLOT(J) = station no. of printout stations for unbalance 
response 

15. LLNT (J) , J - 1, NT (1015), skip if NT - 0 

LLNT(J) ■ station no. of printout stations for transient 
analysis 

16. B0W(J), PBOW(J), XIC(J), YIC(J) , VXIC(J), VYIC(J), J = 1, N 
(6G10.3) 

BOW(J) = Jth station initial bow (mils) (® 0 if no bow) 
PB0W(J) = angle of bow to the positive x-axis (rad) 

(=» 0 if no bow) , 


XIC(J) - Jth station Initial displacement (mils) 

YIC(J) ■ Jth station initial displacement at y-direction (mils) 
VXIC (J) - Jth station initial velocity at x-direction (mils/sec) 
VTIC(J) ■ Jth station initial velocity at y-direction (mils/sec) 

17. SPI, SPL, DSP (3610.3) 

SPI - initial speed (RPM) 

SPL = final speed (RPM) (for critical speed analysis) 

DSP =» speed increment (RPM) 

18. SPS, SPF, SPN (3G10.3) 

SPS = initial speed (RPM) 

SPF = final speed (RPM) (for unbalance response calculations) 

SPN ■ speed increment (RPM) 

19. TITLE1, TITLE2, TITLE3 


3 TITLE cards for label in plots (1 to 80 columns) 



n o n o o r> n o o o o r* o r> o 


PROGRAM MQDfcS< INPUTS OUTPUT# TAP E 1 =1 NPUT # TA PE3 ^OUTPUT# TAPE7# TAPE 10 1 A 1 

+ ******+*+** * ♦***** + *♦* + * ************** ****** ********************* A 2 

THIS PROGRAM CALCULATE THE UNDAMPED CRITICAL SPEEDS AND THEIR A 3 

CORRESPONDING MODE SHAPES#OAMPED NATURAL FREQUENCIES ANO THEIR A 4 

CORRESPONDING MODE SHAPES# RQTOR UNBALANCE RESPONSE# AND TRANSIENT A 5 
RESPONSE OF MULTIMASS ROTOR BEARING SYSTEMS. A 6 

SPECIAL FEATURES INCLUDED ASSYMMETRIC BEARING# BEARING ROTATIONAL A 7 
DAMPING AND STIFFNESS E FFEC TS# SHAFT RESIDUAL BOW AND DISC SKEW A 8 

EFFECTS. A 9 

NONLINEAR BEARING FORCES CAN ALSO BE CALCULATED FOR EACH TIME A 10 

STEP DURING TRANSIENT ANALYSIS WITH BEARING CHARACTERISTICS A 11 

THE PROGRAM CAN ALSO GENERATE PLOTS OF TRANSIENT ORBITS AND A 12 

TIME VS TRANSIENT RESPONSE PLOTS. A 13 

BY K. C. CHOY A 14 

DEPARTMENT OF MECHANICAL ENGINEERING# UNIVERSITY OF VIRGINIA A 15 

MARCH 4# 1977 A 16 

******* ******************************** ****♦**♦♦***♦***♦♦*♦****##* A 17 
COMPLEX BB(20#21)#CC(20) A 18 

REAL KXX ( 10 ) # KXY (10)#KYXd0>#KYYd0)#MFXdO|#MFYd0)#HUY(10)#MUXd A 19 
10 ) # KMX (lQ#10)#KMY(10»10)»MBXdO)#MBYdO) A 20 

DIMENSION CGMENTH8)# COM6NT2C 8) # C0MENT3(8) A 21 

DIMENSION EM6( 100 )# CRT(IO)# LLBD(IO)# LLNB ( 51 » LLNMB (9)# LLSKUO) A 22 
1# LLNT (10 )# LLUF(IO)# LLFF(IO)# LLUT(IO) ; A 23 

DIMENSION OX(IOO)# WdOOl# ENERdOOl# EYlClOOl# EY2C100)# DPC(IOO) A 24 
DIMENSION OEFL< 100) # LB(100># SK(100># WA(50)» DEXT(IOO)# DINT (100 A 25 
1) A 26 

DIMENSION EXTWdOOI# SWldOO)# R0C100I# RT(IOO)# RP(lOO)# EI(IOO) A 27 
DIMENSION WMODC50)# AKK(IO) A 2B 

DIMENSION EANl(lOO)# EAN2(1001# EYTHdOO)# EEYTHdO# 100 1, OOPCdO# A 29 
1100 J A 30 

DIMENS ION TMXdOslO ) . A 31 

DIMENSION A 1 ( 2 # 1 0 ) # A2 (2# 10 ) # A3{ 2# 10) # 81(2*10)# 82(2# 10)# B3(2#l A 32 
10 J A 33 

DIMENSION CMX( 10# 10) # CMY(10*10)# DMX(10#10I# DMYC10#10J# EMX(10#1 A 34 
10)# EMY (10# 10 ) A 35 

DIMENSION DOX ( 10# 10 ) # DDY(10#I0)# E0X(10#10)# £OY(10»10) A 36 

DIMENSION AAAI42)# BBB(42I# CCC(42)» HHH(42I# UUUC42)# VVV(42) A 37 

DIMENSION CXX(10)» CXY(IO), CYX(IO)# CYY(IO)# UXI10)# UY(10) A 38 
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DIMENSION F X ( 1G ) * FY(IO) 

DIMENSION SlNKE(9#4,4 J# -C LNMB ( 9# 4# 4 ) 

DIMENSION SNlfc<5#0#3)# FSKllG)# PSK(XO), BOWUOO)# PBOW(IOO) 
DIMENSION BXAUGOi, BYA(IOO)# XIOC(IOO)# YIDC(IOO), VXIDCUOOI# VY 
llDC(lGO) 

DIMENSION ADUMMYI 8G02 ) 

DIMENSION ALABfc LI lb) * ALABEL2I 6)i ALABEL3 (8 ) 

DIMENSION RHYtlOJ, VIS(S># ANR (51# ANL(5»# AHC(5I# NLB(5> 

COMMON /BLK1/ N#NB# NNLIK# NHB > NF# NU# NS, NBOW# I STAB# IHCDE# ISKU# NCT#NU 
1FPT 

COMMON /BLK2/ ISKIPjNSTEP# NC YCL E # NI TP # N INT# NPLCT # NOR 61 T# NTIME# NSPE 
1ED# NINC# NOPT #NT 


COMMON /BLK3/ Cfc T# LL 6D# LLNB# LLNHB# LLSK#LLNT# LLUF# LLFF# LLUT 
COMMON /BLK4/ KXX#KXY# KYX# KYY# CXX,CXY#CYX# CYY#SLNHB#CLNHB 
COMMON 7BLK5/ UX#UY#FX#FY#FSK# PSK 

COMMON /BLKfe/ 60W#PBGW#XIDC#YIDC#VXIDC# VYIDC# BXA#BYA 

COMMON /BLK7/ CHX,KMX, EMX# CHY# KHY# EHY 

COMMON /BLK8/ HFX#KFY# MUX# HUY# MB X#MB Y 

COMMON /8LK9/ OOPC#£EYTH 

COMMON /BLK10/ SPS#SPF#SPN#SPEE01 


COMMON ABLK1I/ 
COMMON / 8LKI4 / 
COMMON /8LK15/ 
COMMON /BLK16/ 
COMMON /BLK1 8/ 
COMMON /BLK19/ 
COMMON /3LK20/ 
COMMON /BLKZ1/ 
COMMON 7BLK22/ 
COMMON /BLK24/ 
COMMON /BLK25/ 
COMMON /8LK26/ 
COMMON /BLK29/ 
COMMON /BLK357 
COMMON ADUKMY 


00 X# D OY # E DX # E OY 

AAA# UUU# VVV# HHH# BBB# CCC 

RP# RT 

SPEED2#ANGSP#AN6ACL#F SPEED 

AKK 

DX 

A1#A2#A3#B1#B2#B3 
GttX# DMY 
k 

eB#cc 

BETA 

ALABELl# ALABEL2# ALABEL3 
PASP 

WHY# VIS# ANR# AHL#ANC#NL'B 



NNPLT=0 

READ ( 1# 690 ) CGHENT1 
READ ( 1# 690 ) COM ENT 2 


A 39 
A 40 
A 41 
A 42 
A 43 
A 44 
A 45 
A 46 
A 47 
A 46 
A 49 
A 50 
A 51 
A 52 
A 53 
A 54 
A 55 
A 56 
A 57 
A 58 
A 59 
A 60 
A 61 
A 62 
A 63 
A 64 
A 65 
A 66 
A 67 
A 68 
A 69 
A 70 
A 71 
A 72 
A 73 
A 74 
A 75 
A 76 




READ (1*690) COME NT 3 A 77 

WRITE ( 3*1060) A 78 

WRITE (3*700) CGMENT1*C0MENT2»C0MENT3 A 79 

WRITE (3*710) A 80 

READ (1*720) N*NB* NNLIN* NKB*NF*NU*NS*NBQU*ISTAB*IMODE* ISKU*NUFPT A 61 
READ (1*730) ISKIP*NSTEP* NCYCLE* MITP*NINT*NPLOT* NORBIT*NTlME*NSPEE A 82 
10 *NINC* NOPT* NT A 83 

IF (NB.EQ.O) GO TO 20 A 8* 

READ ( 1* 740) (LLBD( J)* J = 1*NB) A 85 

READ ( 1*750) (KXX( J)*KXY ( J )*KYX( J )*KYY (J)*CXX(J )*CXY(J)*CYX(J)*CYY A 86 
1(J)*J»1*NB) A 87 

20 CONTINUE A 88 

IF (NNLIN.EQ.O) GO TO 30 A 89 

READ (1*760) (LLNB(J) *NLB ( J) * VIS ( J ) * ANR( J )* AKL ( J ) *ANC (J)*J*1* NNLIN A 90 
1) A 91 

30 CONTINUE A 92 

IF (NMB.EQ.O) GO TO AO A 93 

READ (1*770) (LLNMB ( J ) * J = 1*NKB ) A 9A 

READ (1*780) ( { ( (SLNHBI I* J*K ) #K*1, A) * ( CLNMB( I*J*K)*K fi l*A) )* J«l* A)* A 95 
1I*1*NMB) A 96 

AO CONTINUE A 97 

READ (1*790) NGYR*E* SPEED 1*SPEE02* ANGACL* FSPEED* BET A A 98 

READ (1*800) (EXTK(J)*DX(J)*DEXT( J)*OINT( J)*RP( J)*RT(J)*EM6(J)*R0( A 99 
1 J) * J-1*N ) A 100 

IF (NF.EQ.O) GO TO 50 A 101 

READ (1*810) (LtFF ( J )*FX(J)*FY(J)*J 3 1*NF) A 102 

50 CONTINUE A 103 

IF (NU.EO.O) GO TO 60 A 10A 

READ (1*610) ( LLUF ( J ) *UX ( J ) *UY( J ) * J=1*NU) A 105 

60 CONTINUE A 106 

IF (NS.EQ.O) GO TO 70 A 107 

P £AD (1*810) ILLSK(J)*FSK(J)*PSK( J)* J=1*NS) A 108 

70 CONTINUE A 109 

IF (NUFPT.EO.O) GO TO 80 A 110 

READ (1*820) (LLUTl J )* J *1* NUFPT) A 111 

80 CONTINUE A 112 

IF (NT.EC.O) GO TO 90 A 113 

READ (1*820) (LLNT( J)*J»1*NT) A 11A 


rj 

i 


10 

U 

o> 



90 


CONTINUE A 115 

READ (1,830) (BCW( J), PBOW ( J ) > X IOC ( J),YIOC (J),VXIOC( J) , VYI DC ( J ), J* 1 A 116 

1,N ) A 117 

REAO (1,840) 5PI,SPL,D$P A 118 

IF ( I SKU.EQ * 1 ? GO TO 100 A 119 

READ (1,8501 SPS,SPF,SPN A 120 

100 CONTINUE A 121 

READ (1,6901 ALABEL1 A 122 

READ (1,690) ALA8EL2 A 123 

REAO (1,690) ALABEL3 A 124 

WRITE (3,860) NCYCLE, NSTt P, MINT, NINC, NOPT, SPEED2, ANGAC L, BETA A 125 

WRITE (3,870) A 126 

DO 110 1*1, N A 127 

IF (RO(l).EO.O.O) R0(I)-0*283 A 128 

ENER(I)=3.14159*(0EXT(I)**4.-DINT(I)**4,)/64. A 129 

IF (EM6(I).EG.0.0> EM6(M*E A 130 

EI(I)*£M6(I )*ENER( 1 ) A 131 

DL*ABS(OX(I)) A 132 

110 SW1(I)*3.14159*(DEXT(I)**Z.-DINT(I)**2. )*DL*R0U)/4«0 A 133 

W( 1) =SW1 (1 )/2*+EXTW ( 1 ) A 134 

WT*U(1) A 135 

ZLT*DX (1 ) A 136 

DO 120 1*2, N A 137 

W(I)*SWlU-l)/2.0*SWl(I)/2.0 + EXTW(I) A 138 

C W ( I )*TQTAL EFFECTIVE SHAFT WEIGHT A 139 

WT=WT+W(I) A 140 

120 ZLT*ZLT+DX (I I A 141 

IF (NGYRj 130,150,130 A 142 

130 R P ( 1 ) * RP ( 1 ) + ENER ( 1 ) *R 0 ( 1 1 *0 X ( 1 ) A 143 

RT(1)=RT(1)*SW1(1)*< (DEXT(1)**2. 0+DlNT( 1) **2 . 0)716. 0+ ( ( OX ( 1) Y2 . 0)* A 144 

1*2*0) /3* 0 ) /2*0 A 145 

DO 140 l*2,N A 146 

RP( I ) *RP( I )+R0( I )*ENER ( I )*DX( I )+ENER ( 1-1 )*DX (I— 1 )*RQ( 1—1) A 147 

RT(I)*RT(I)+SW1(I)*{(0EXT(I ) **2*0+01 NT (l )**2*0) /16*0+I (DX ( I ) /2 *01* A 148 

1*2 *0 ) /3 *0) /2 *U+SW1 (I— 1 )* ( (DEXT ( 1—1) **2.0+0 IN T ( 1-1 )**2*0 ) / 16*0-M (DX A 149 
2(I-l)/2.0)**2.0)/3,0)/2.0 'o - Q A 150 

140 CONTINUE & A 151 

150 SRP*0.0 gf-Q A 152 




00 160 1 = 1, N A 153 

160 SRP*SRPtRP(l> A 154 

00 180 1=1, N A 155 

WRITE (3,880) (I,W(I),OX(£),DEXT(I),DINT(I), ENERI I),RP(1),RTII),EH A 156 

16(1), EICI>) A 157 

IF C 1-50 1 180,170,180 A 158 

170 WRITE (3,1080) A 159 

160 CONTINUE A 160 

WRITE (3,890) WT,ZLT A 161 

WRITE (3,900) A 162 

WRITE (3,910) A 163 

WRITE (3,920) t J,LLBD ( J > , KXX ( J ) , KXY ( J ) ,KYX( J ) ,KYYI J ) , J* 1, NB ) A 164 

WRITE (3,930) A 165 

WRITE (3,9401 A 166 

WRITE (3,920) ( J,LLBD(J),CXX(J),CXY(J),CYX(J ),CYY(J),J = 1,NB) A 167 

IF (NMB.EQ.O) GO TO 200 A 168 

00 190 I* 1, NUB A 169 

WRITE (3,950) I,UNMB(I) A 170 

WRITE (3,960) 4 ( SL NMB II , J, K ) ,K =1 , 4 ) , J =1, 4 ), ( I CLNMBf I, J, K > , K *1, 4 ) , J A 171 

1=1,4) A 172 

190 CONTINUE A 173 

200 IF (NNL1N.EQ.0) GO TO 220 A 174 

WRITE (3,1170) A 175 

DO 210 J=l, NNLIN A 176 

WRITE (3,11801 J, LI NB(J),NLB(J),VIS(J),ANR(J), ANl ( J ) , ANC( J) A 177 

210 CONTINUE A 170 

220 IF (NF.EQ.O) GO TO 230 A 179 

WRITE (3,970) A 160 

WRITE (3,9801 CLIFF (J)»FX( J), FY( J),J=1»NF ) A 181 

230 IF ( NS • £0.0) GO TO 240 A 182 

WRITE (3,990) A 183 

WRITE (3,1000) (LLSK(JJ»FSK(J ) , PSK (<J ) ,4*1,NS ) A 184 

240 IF (NU,EQ,0) GOTO 260 A 185 

WRITE (3,1010) A 186 

WRITE (3,1020) A 187 

WRITE (3,1030) ( LLUF ( J) , UX ( J ) , UY( J ) , J=1,NU) A 188 

DO 250 J=1,NU A 109 

UX( J)-UX(J)/(I6.*366.4) A 190 


. i 

1 

■ J 

j 

■'3 

'■{ 


238 




250 

260 

270 

260 

C 

c 

c 

c 

290 

C 


UY(J)*UY( J)/(16.*366.4) 

CONTINUE 
WRITE (3* 1040 ) 

DO 270 J = 1*N 

WRITE 13 >1030) J*8GW(J)*P8DW(J)*XIDC(J)*YI0C C J ) , VXI DC C J ) * VYIDC C J ) 

CONTINUE 

WRITE (3*1060) 

DO 260 1 = 1* NB 

AVK=( KXX( I ) +K YY (I ))/2 • 

WRITE (3*1070 ) I* AVK 

CONTINUE 

NC = 1 

NC*LOCAL CRITICAL SPEED NO. 

WRITE (3*700) 

WRITE (3*1080) 

LN*3 

$PI= INITIAL SPEED* SPL = FINAL SPEED*DSP=SPEED INCREMENT-RPM 

SPD=SPI 

DETP =0. 

MA*0 


H8 = 0 

I F (LN-50 )54>54* 53 
WRITE (3*1080) 

WRITE (3*1090) SPI* S PL* DSP 
LN* 1 

WRITE (3*1100) 

LN=LN+3 
DIN=DSP 
1 = 1 
J«1 

S PS G=SPD*SPD 
COMPUTE ANG. VELOCITY 
ANSP=SPD*0. 10471976 
ANSP2=ANSP*ANSP 
VP*0* 
l MP=0. 

£YP*0» 

ETHP*1* 0 



A 191 
A 192 
A 193 
A 194 
A 195 
A 196 
A 197 
A 198 
A 199 
A 200 
A 201 
A 202 
A 203 
A 204 
A 205 
A 206 
A 207 
A 208 
A 209 
A 210 
A 211 
A 212 
A 213 
A 214 
A 215 
A 216 
A 217 
A 218 
A 219 
A 220 
A 221 
A 222 
A 223 
A 224 
A 225 
A 226 
A 227 
A 228 




to 

Id 

to 





30 0 
310 

320 

330 
B ^ 0 


350 

360 


M = 1 
1=1 + 1 
11 = 1-1 

IF III-LLBOUJ) 330,310,330 

AK*IKXX(J)+KYY(J) 1/2* 

AKKCJ )=AK 

IF TJ-NB) 320,340,340 
J= J + l 
GO TO 340 
AK*0. 

VP*VP+(W< 1-1 )* AN SP2/ 386*4— AK)*EYP 
ZMP=ZM P- A NS P2* ( RT C I— 1 1 ) *ETHP / 3 86 *4 

EY = EYP+0X(I-l)*ETHP+0XCI-n**2*2«P/C2,E6*EI(I-in+DXCI-l)**3*VP/|6 
l.E6*EI<I-in 

ETH*£THP+DX(I- 1 )*ZMP/( 1 «E 6 *EI(I- 1 ))+DX( I-1)**2*VP/ (2.E6*EItI-in 

ZM*ZMP+DX ( 1-1 ) *VP 

V=VP 

IF (M.EQ.2) GO TO 350 

EY1{ I ) *EY 

EAN1 Cl )=ETH 

IF (I.GT.NJ GO TO 360 

Z MP= ZH 

VP =V 

EYP-EY 

ETHP=ETH 

GO TO 300 

EY2< I ) =EY 

EAN2 ( I ) =£TH 

ZMPsZH 

VP = V 

EYP*EY 

ETHP =ETH 

IF (I.GT.N) GO TO 370 

GO TO 300 

K=2 

ZH1=ZH 
VR1 = V 
J=1 


A 229 
A 230 
A 231 
A 232 
A 233 
A 234 
A 235 
A 236 
A 237 
A 238 
A 239 
A 240 
A 241 
A 242 
A 243 
A 244 
A 245 
A 246 
A 247 
A 248 
A 249 
A 250 
A 251 
A 252 
A 253 
A 254 
A 255 
A 256 
A 257 
A 258 
A 259 
A 260 
A 261 
A 262 
A 263 
A 264 
A 265 
A 266 




1*1 

EVP-1'. 

ZHP*0 . 

ETHP*0. 

VP = 0. 

GQ TO 300 

370 DET x VRl*2M-V*Zf11 

IF (DETP • EQ .0 . ) GO TO 420 
IF CftA.EO.il GO TO 400 
IF (ABS(DET).LT.l. I GO TO 450 
IF (DETP*DET) 380*420*420 
360 DOLD*OETP 
390 HA = 1 

IF (ABSCDET1.LT.1. 1 GO TO 450 
IF (DIN.LT .1. E-6 1 GO TO 450 
0IN*0IN/2. 

OETPP*DETP 
DETP-DET 
SPO*SPD-DIN 
GO TO 290 

400 IF (A8SC06TV.LT. 1.) GO TO 450 
IF (DOLD*DET) 390,420,410 
410 CONTINUE 

IF (ABSCDET).LT.l.) GO TO 450 
IF COIN. LT. I. E-6) GO TO 450 
0IN*0IN/2. 

S PO*SPO + D IN 
DETPP-DETP 
DETP =DET 
GO TO 290 

420 IF CLN-54) 440*440*430 
430 WRITE (3,1080) 

LN* 1 

440 WRITE (3,1110) SPD,OET 
IN*LN*1 
SP0*SP0+0SP 
DIN* DSP 

IF CSPD.GT.SPL) GO TO 610 


A 267 
A 266 
A 269 
A 270 
A 271 
A 272 
A 273 
A 274 
A 275 
A 276 
A 277 
A 278 
A 279 
A 280 
A 281 
A 282 
A 283 
A 284 
A 285 
A 286 
A 287 
A 288 
A 289 
A 290 
A 291 
A 292 
A 293 
A 294 
A 295 
A 296 
A 297 
A 298 
A 299 
A 300 
A 301 
A 302 
A 303 
A 304 


241 


DETPP = 0ETP A 305 

DETP=DET A 306 

SSPD=SPD A 307 

GO TO 290 A 308 

450 MA*0 A 309 

WRITE 13,1110) SPD,DET A 310 

LN=LN+1 A 311 

IF (LN-50) 470,470*460 A 312 

460 WRITE (3,10601 A 313 

L N- 1 A 314 

470 WRITE (3*11201 NC A 315 

WRITE (3*1130) A 316 

WRITE (3,1110) SPD* OET A 317 

CRT (NC )-S PD A 318 

NC*NC +1 A 319 

LN=LN+3 A 320 

E Y1 ( 1 ) =0 • A 321 

EY2 ( 1) = 1 • A 322 

DTX*0. A 323 

1=1 A 324 

IF (IN-50) 490,490*480 A 325 

460 WRITE (3*1080) A 326 

LN=1 A 327 

490 WRITE (3,1140) A 328 

LN=LN+2 A 329 

500 DEFL(I)=V*EY1(I)-VR1*EY2(I) A 330 

IF (l.NE.l) GO TO 510 A 331 

EYTH( I ) *V A 332 

GO TO 520 A 333 

510 EYTH(I)=EAN1( l) *V-E AN2 ( I)*VR1 A 334 

520 D£FA=ABS(DEFL(I) ) A 335 

DMXA=ABS (DTX ) A 336 

1*1+1 A 337 

IF (DEFA-DHXA) 540*540,530 A 338 

530 DTX=DEFl(I-l) A 339 

540 IF (I-NJ 550,550*560 A 340 

550 GO TO 500 A 341 

560 DO 570 1*1, N A 342 


to 

4 > 

to 





DPC(I)=0EFL (I )/DTX 

A 393 



EYTH(I)=EYTH(I)/DTX 

A 399 



E£YTH(NC-1, I)=EYTH(I ) 

A 395 


570 

DDPC(NC-1,I)=DPC(I) 

A 396 

, 


00 600 I =1, N 

A 397 



LN=IN+1 

A 396 



IF (LN-59) 590,590,580 

A 399 


560 

WRITE (3,1080) 

A 350 

£. 


LN = 1 

A 351 

y 

s' 

590 

WRITE (3,1150) I,DPC ( 1) , EYTH( I ) 

A 352 



LN=LN+1 

A 353 


600 

CONTINUE 

A 359 



SPD*SSPD+DSP 

A 355 



DETP=0. 

A 356 



GO TO 290 

A 357 


610 

CONTINUE 

A 358 



DO 620 IK=1,NB 

A 359 

i 


KXX(IK)=KXX( IK )-AKK (IK) 

A 360 

• 

620 

KYY(IK)=KYY(IK)-AKK( IK) 

A 361 



NCS*NC-1 

A 362 



DO 650 I 1=1, NCS 

A 363 



WHOD (II ) *0. 

A 369 



DO 630 J J = 1 , N 

A 365 


630 

WMOD(II)=WHOD(II)+RT( J J ) * EEYTH ( l I, J J ) **2+ W ( J J ) *DDPC ( I I, JJ)**2 

A 366 



WMOO(II)=WHOD(iI) 7386.9 

A 367 



DO 690 KI-ljN 

A 368 

1 


EEYTH(1I,KI)=EEYTH( II,KI) / ( WMOD ( I I ) **0 . 5 ) 

A 369 

H 

rH 

690 

DDPC(II,Kl)=DDPC(II,KI)/(WM0D(II)**0i5) 

A 370 

■ ? 

650 

CONTINUE 

A 371 

i 

J 


DO 660 II=i,NCS 

A 372 

i 


WRITE (3, 1190 ) II, CRT (II), WHOD (II) 

A 373 



DO 660 JJ=1,N 

A 379 



WRITE (3,1200) JJ,ODPC(II, J J ) , EEYTH( I I , J4 ) 

A 375 


660 

CONTINUE 

A 376 



WRITE (3,1210) 

A 377 



DO 680 11=1, NCS O O 

A 378 



DO 670 J J= 1,NC S ■ g 

A 379 

ro 


T('iX( 1 1, J J ) = 0 • OS 

A 380 

4 W 


o 
7 » 

Is 

l-a 

SB 



DO 670 

K I =1, N 

A 

381 


T MX 111* 

JJ )=TMX(II,JJ)+W(KI)+DDPC(JJ>Kl)*DDPC(II»KI) /38 6.4+RTCKI )*E 

A 

36 2 


1EYTH( II 

,KI )*EEYTH( JJ,KI)/386.4 

A 

363 

670 

CONTINUE 

A 

384 


WRITE (3,1160) ( TMX ( II, JJ ),JJ=1,NCS ) 

A 

385 

6b0 

CONTINUE 

A 

386 


NCT*NCS 


A 

387 


CALL TMM 

A 

388 

C 



A 

389 

C 



A 

390 

690 

FORMAT 

( 8A10 ) 

A 

391 

700 

FORMAT 

(IX, 31 BA 10 /IX) ) 

A 

392 

710 

FORMAT 

( /, 20X,#MQQAL ANALYSIS VERSION 3, APRIL 6, 1977*) 

A 

393 

720 

FORMAT 

(1215) 

A 

394 

730 

FORMAT 

(1215) 

A 

395 

740 

FORMAT 

(1015) 

A 

396 

750 

FORMAT 

(8G10.3) 

A 

397 

760 

FORMAT 

( 215,4610* 2 ) 

A 

398 

770 

FORMAT 

(915) 

A 

399 

760 

FORMAT 

I8G10.3) 

A 

400 

790 

FORMAT 

( 15, 5X,6G 10* 3 ) 

A 

401 

600 

FORMAT 

(8G10.3) 

A 

402 

610 

FORMAT 

( I 5, 5X,2G10« 3 ) 

A 

403 

8 20 

FORMAT 

(1015) 

A 

404 

630 

FORMAT 

( 6G10.3 ) 

A 

405 

840 

FORMAT 

(3G10.3) 

A 

406 

850 

FORMAT 

(3G1G.3) 

A 

407 

860 

FORMAT 

( //, 10 X,*NCYCLE = *, 13, 5X, INSTEP-*, 13,5 X,*NINT**> 13, 5X,*NINC« 

A 

408 


1*,I3,5X 

:,*NOPT-j‘,I3,/,10X,i‘SPEED2»*,F10.2,5X,*ANGACL(l/SEC)»*,FlO*3 

A 

409 


2,5X,*BETA=*,F10.5,//> 

A 

410 

870 

FORMAT 

(120H STATION NO. WEIGHT LENGTH SHAFT DIA. SHAFT D 

A 

411 


1IA. 

I IP-POLAR MOM. IT-TRANS. MOM. EX10-6 El 

A 

412 


2, /120H 

(LP) (IN.) OUTSIDE INSIDE ( 

A 

413 


31N**4) 

(LP-IN**2) ( LB-IN**2) »/) 

A 

414 

880 

FORMAT 

(I7,F16.3,F12*3,F10.3,F10.3,F11.2,F12.3,F16.3,F11.2,G10.3) 

A 

415 

890 

FORMAT 

( 16X, 7H-* ,5X,7H /7X, F16 .3, F12. 3/ ) 

A 

416 

900 

FORMAT 

( /, 34 X, * LINEAR SUPPORT BEARING STIFFNESS CHARACTER ICS*/ ) 

A 

417 

910 

FORMAT 

( 5X, 16H6E ARI NG BE ARING, 12X, 3HKXX? 16X,3HKXY, 16X,3HKYX,16X,3 

A 

418 


920 

930 

940 


950 

960 

970 

960 

990 

1000 

1010 

1020 

1030 

1040 


1050 
1C 60 

1070 

1060 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 
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1HKYY * / 5X# 6HNUMB£k» 3X# 6HL0C AT IDN# 6X #7H( IB/ I N ) # UX# 7H C IB/ IN I #UX#7H< A 419 
2LB/IN>#11X#7HILB/IN)) A 420 

FORMAT C5X# I3#8X# 13#9X,F11. l#5X#FU.l# BX# Fll . 1# 6X #F 11. 1 I A 421 

FORMAT (/#35X## LINEAR SUPPORT BEARING DAMPING CHARACTERISTICS#/ A 422 
1) A 423 

FORMAT (5X# 16HDAMP1NG 0AMPING#12X,3HCXX# 16X# 3HCXY# 16X# 3HCYX#16X#3 A 424 
1HCYY# /#5X#6HNUMBER#3X#8HL0CATI0N#6X# 1 1H ( L 6-SEC / IN )# IOX# 11H ( LB-SEC / A 425 
2 lN»# 10 X,llH(LB-SEC/IN}, 10 X,llH<lB-SEC/INn A 426 

FORMAT (//,10X##FULL BEARING NO. #» 12# 3X# #AT STAT10N##I3# /) A 427 

J-ORMAT <10X##B£ARING STIFFNESS LB / IN## / /» 4 (4 < 5X# G15. 3) # / ) # //#10X# # A 428 
1BEARING DAMPING LB-SEC / IN# # / /# 4 * 4 ( SX, G15 . 3 ) , / ) I A 429 

FORMAT (//»20X# #E XTERNAL FORCES## /# 5X# #STATION NO. # # 10X# #X##15X# #Y A 430 
l##/l A 431 

FORMAT < 10X#I3#2(5X#G15.51 ) A 432 

FORMAT (//#20X##SKEWED DISC##/#5X» #STATION N0.#»10X##SKEW(RA0I ##5X A 433 
1# #PHASE ANGLE 0EG.##/l A 434 

FORMAT ( 10X#I3#2{5X#G15,5)> A 435 

FORMAT (///#25X,#R0T0R UNBALANCE IN OZ-IN.##/) A 436 

FORMAT < 5X##STATI0N#»10X##X-UNBALANCE##I0X##Y-UNBALANCE##/I A 437 

FORMAT (8X#12#12X#F10.3#11X#F10.3) A 438 

FORMAT <//,2GX,#SHAFT INITIAL CONDITIONS## //# 5X##STATI0N N0.##5X## A 439 

1B0W-MILS ## 5X# #P HASE ANGLE ##5X# #X-OI SP#» 10X#Y-0ISP#» IOX# #X-VEL##10X A 440 
2##Y-VEL## /,34X##{ DEGREES )##6X##( MILS)## 10X## (MILS)## 10X##MIl/IN#» I A 441 
30X# #HIL/IN# # / ) A 442 

FORMAT <5X# I3#6 (5X# F 10. 2 U A 443 

FORMAT (//#1QX*# AVER AGE BEARING STIFFNESS USED FOR CRITICAL SPEED A 444 
1CALCULATI0NS#) A 445 

FORMAT (10X##BtARING NO . ## 12# 5X# #STIFFNESS (L B/IN) ## FI2. 2 ) A 446 

FORMAT ( 1H1# / ) A 447 

FORMAT (//# 5X## INITIAL S PEED=## FID. 2# 5X# #F INAL SPEED*##f 10.2# 5X## A 448 
1 SPEED INCREM£NT*##F10.2## RPM ##//) A 449 

FQPMAT C/I3X#3HRPM#20X#5HDELTA#12X#2HK1#13X,ZHK2/) A 450 

FORMAT (10X#F8*1#9X#E17.9> A 451 

FORMAT (//#10X##CR1TICAL SPEED N0.#*I2) A 452 

FGRKAT (/#10X#14HCRIT1CAL SPEED# 11X #5HDELTA# / ) A 453 

FORMAT ( /# 12X#6HSTA NO, IOX# 14HNET DEFLECT ION# 10X#5HANGLE> A 454 

FORMAT <12X#I5# 13X#F9.5#13X#F9.5> A 455 

FORMAT <5X#10CF8. 2 #2X)> A 456 


1170 FORMAT (//»10X»*N ON LINEAR BEARING FORCES* #//,5X,* BEARING N0.*,4X,* A 457 
1 STATION NQ.*,4X,*CAVITATIQN*,5X,*V1SCQSITY*, 6X ,*RA0IUS*,9X, * LENGTH A 45$ 
2*,9X, *CLEARANCE*W, 35X, *C OND IT I ON*# 6X, *LB/ IN**2*» 7X, * UN. » *, 10X, ** A 459 
3IN.)*,10X»*(IN.}*,/) A 460 

1180 FORMAT ( 10X, 15, 10X, 15 , 10X, 1 5, 5X, £10 .4, 5X, E 10 . 4, 5X, E 10.4, 5X , E10.41 A 461 
1190 FORMAT (1H1, //, 10X, CRITICAL SPEED NO . *» 15, 15X, F10. 1, *RPM*, /, 10X, * A 462 
1M0DAL MASS=*»F10.3,2X,*L6-S£C**2/IN*,//,10X,*THE ORTHDNORMAL MODE A 463 
2SHAPES*, //, 5X, *STAT I0N*,8X, *TRANSLATIQNAL*,7X,*RGTATI0NAL*I A 464 

1200 FORMAT (9X, 13, 10X, FlO. 5, 10X, F10. 5) A 465 

1210 FORMAT ( ///,10X,*THE ORTHOGONAL CONDITIONS OF MODES*,/l A 466 

END A 467- 


n r> r> o 





SUBROUTINE TMM 

**************** ******* *>{ 5 ***+ ************ ************************* 

THIS SUBROUTINE CONTROLS THE MODAL ANALYSIS OPERATION AFTER THE 
PLANAR CTIT1CAI SPEEDS AND MODE SHAPES HAVE BEEN CALCULATED* 
********* ********** **************************** ******************* 
COMPLEX B,C 

REAL KXX*KXY,KYX,KYY*MFX#MFY*MUX*MUY#KMX*KMY 

COMMON /BLK1 / N#NB#NNL IM» NMB*NF# NU#NS#NBOW# I STAB# I MODE » ISKU#NNCT#N 
1UFPT 

COMMON /BLK2/ I SKI P , NST E P* NC YCLE , NITP * N INTt NPLOT* NORBIT# NT IME * NS PE 
1ED#NINC#N0PT» NT 

COMMON /BLK3/ CRT(10)*LL BO (10 ) * LLNB (5 )* UNMB (9)*1LSK( 10)# LLNTdO )* 
1LLUF(10)#LLFF(10)»LLUT(10) 

COMMON /BLK4/ KXX ( 10 ) *KXY ( 10 ) *KYX ( 10) #KYY( 10) #CXX(10)* CXV (10),CYX( 
110>*CYY(10)*SLNMB(9t4#4)*CLNMB(9 f 4*4) 

COMMON /BLK5/ UX ( 10 ) * UY ( 10 ) * FXC10 ) # FY 110 ) * FSK CIO ) #PSK( 10) 

COMMON /BLK6/ BOW (100 )# PBOW( 100) #XIDC ( 100)# YXDC( 100)* VXIDC (100) # VY 
1IDC ( 100 )* 6XA( 100) # BYA (100 ) 

COMMON /BLK7/ CMX ( 10* 10) #KMX( 10# 10 )* EMX ( 10# 10) #CMY( 10# 10)#KMY( 10# 1 
10)*EMY(10*10) 

COMMON /BLK8/ MFX(IO) »MFY (10 )*MUX(10)»MUY (10 )#MBX (10) *MBV( 10) 
COMMON /BLK9/ DOPC ( 10*100)* EEYTH( 10# 100) 

COMMON /BLK10/ SPS# SPF,S PN#S PEED1 

COMMON /BLK11/ 00X( 10# 10) * DOY ( 10, 10 ) #EOX ( 10# 10) * EOY ( 10#10> 

COMMON /BLK15/ RP ( 100 ) * RT ( 100) 

COMMON /BLK16/ SPEED2# ANGSP* ANGACL# F SPEED 
COMMON /BLK18/ AKK(IO) 

COMMON /BLK20/ A 1(2* 10) #A2( 2*10) * A3( 2* 10) * Bi (2* 10 )* B2 (2# 10) *B3(2* 1 
10 ) 

COMMON /BLK24 / B (20* 2 1 )* C ( 20 ) 

COMMON / BLK25 / BETA 
COMMON /BLK29/ RASP 
IF (NBOW.EO.O) GO TO 10 
CALL SFTBOW 
10 CONTINUE 

CALL TM0DE1 

IF (ISTAB.EO.l) GO TO 20 
CALL STAB © © 

S3 gj 




B 1 
B 2 
B 3 
B 4 
B 5 
B 6 
B 7 
B 8 
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B 10 
B 11 
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3 14 
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B 26 
B 27 
B 26 
B 29 
B 30 
B 31 
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B 33 
B 34 
B 35 
B 36 
B 37 
B 36 
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20 CONTINUE 

IF < ISKU.EU.l ) GO TO 30 
CALL UBST (G,SPEED2) 

30 CONTINUE 

IF CISKIP.EQ.1) GO TO 120 
SPEED 0 SPEED2 
NSTEPI°NST£P+1 
STEP*N$TEP 
TCrCLE=60. /SPEED 
T IME°Q* 

' 1 1 NT ~ 1 

IF (NINC.EQ.O) GO TO 50 
CALL UBST (1, SPEED) 

00 40 I = 1 j NNCT 
1 1=1+ NNC T 

A3( 1# I ) °REAL (C ( I) ) +0. 9 
B3 (1# I ) «REAL (C ( 1 1 ) ) *0 • 9 

A2(1#I)°— AIMAG(CCl) )*SPEED*0. 10471975*0. 9 
40 B2C1# n—AINAGCCUl) )*SPEED*0. 10471975*0.9 

GO TO 60 
50 CALL TINC 

IF (NBOW.EQ.O) GO TQ 60 
CALL SFTBOW 
60 CONTINUE 

REWIND 7 

CALL TSTORE CNNCT#1>0.0) 

ICOUNT-1 
NK=0 
N P LUS = 0 

IF (ANGACL.NE.O.) NPLUS=99999 

NJ-NPLUS+1 

PASP=0. 

DO 110 I°IINT .NCYCLE 
TEEM°T IME 
DO 100 J=1,NSTEP 
DELTAT = TC YCLE/STEP 
IF (J.GT.NJ) NK°1 

CALL TM00E2 CTINEf DE LTAT# SPEED *NK) 


B 39 
B 40 
B 41 
B 42 
B 43 
B 44 
B 45 
B 46 
B 47 
B 48 
B 49 
B 50 
B 51 
B 52 
B 53 
B 54 
B 55 
B 56 
B 57 
B 56 
B 59 
B 60 
B 61 
B 62 
B 63 
B 64 
B 65 
8 66 
B 67 
B 66 
B 69 
B 70 
B 71 
B 72 
B 73" 
B 74 
B 75 
B 76 
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to 

00 
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CALL TACCEL B 77 

T INE=T IKE+DELTAT ' B 78 

£0 TO (70,60), KINT B 79 

70 CALL TB ETA < NNCT, DE Ll AT, BETA ) B BO 

GO TO 90 B 81 

60 CALL TlNTG ( NNCT* OE LT AT ) B 82 

90 CONTINUE B 63 

1CGUNT=IC0UNT+1 B 8A 

CALL TSTC*£ (HNCT * ICOUHT, TIME ) B 85 

PAS P s PAS P+DELTAT* SPEE0*0 .1GA719 B 86 

T CYC LE= 60. /SPEED B 87 

100 CONTINUE B 88 

110 CONTINUE B 89 

CALL TOISPL (TIKE 1 B 90 

120 CONTINUE B 91 

RETURN B 92 

END B 93- 


'O '0 

n & 

% ^ 
2 > 
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SUBROUTINE TM0DE1 Cl 

C ♦♦t******^******************************************************* C 2 

C THIS SUBROUTINE CALCULATES THE MODAL COEFFICIENTS WHICH ARE INDEPE C 3 

C OF SPEED AND ACCELERATION. THEY CAN BE USED IN OTHER SUBROUTINES. C 4 

C ***:M**************************t****t***************************** C 5 

REAL KXX>KXY,KYX»KYY,MfX>MFY#MUX*MUYjKHX>KHY C 6 

COMMON /BLK1/ N,NB,NNLIN* NMB# NF,NU,NS,NBOW, ISTAB, IMGDE*ISKU#NNCT*N C 7 

1UFPT C 8 

COMMON /BLK3/ CRT <10 b UBD( 10) * LLNB ( 5b LLNMB (9b USK( 10) »LLNT<10> » C 9 

ILLUFdOb LLFF (lObLLUT (10) C 10 

COMMON /BLK4/ KXX (10 ) t KX Y(10 ) t KYX< 10 1 jKYY (10 b CXX ( 10bCXY<10) * CYXC C 11 

llObCYYClOb SLNMB<9,4*4 bCLNMB <9,4*4 ) C 12 

COMMON /BLK7 / CMX( 10, 10), KMX (10, 10 b EMX ( 10, 10) , CMYI 10, 1 0 ), KMY( 10, l C 13 

10b EMYllO, 10) C 14 

COMMON /BLK6/ MFX CIO b MFY (10 ) ,MUX C 10) , MUY (10 ), MBX 1 10) , MBYC 10 J C 15 

COMMON /BLK9/ DDPC ( 10,100) ,EE YTH( 10, 100) C 16 

COMMON /BLK11/ D0X<lO,i0bDQY<l0,lObE0X(10,10)»EQY<10,10) C 17 

COMMON /BLK22/ W(100) C IB 

COMMON /BLK35/ WMY( 10 ) , VI S (5 b ANR (5 b ANL< 5 b ANC ( 5) , NLBC 51 C 19 

DO 10 I=1,NNCT C 20 

DO 10 J=1*NNCT C 21 

CMX(I,J) = 0. C 22 

CMYC I, J>=0. C 23 

KMX (I* J)*0. C 24 

KMY (I, J )=0 . C 25 

DOX ( I , J ) s 0. C 26 

DOY( b J) = 0, C 27 

E0X<I,J)=0. C 28 

EQYi I, J ) =0 . C 29 

10 CONTINUE C 30 

00 30 I-l.NB C 31 

J=LLBD II) C 32 

DO 20 K*l, NNCT C 33 

DO 20 L =1,NNCT C 34 

CMX<K,l)*CMX<K,L)+CXX(I)*DDPC(K,J1*0DPC<l,J> C 35 

CMY(K,L ) *CMY (K,l)+CYY ( 1 )*DDPC ( K» J) *DOPC ( L, J ) C 36 

KMX (K#L) *KMX( K» L) +KXX( I)*DDPC (K» J )4DDPC (L#J) C 37 

KNY(K»L)=KMY(K,L)+KYY(1)*0DPC(K> J)*DDPCIL#JI C 38 
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fc - a 


L J X(K>L} = DOX(K,L)+CXY( I)*DCPC(K» J)*OOPC(L> J1 
DUYCK* L»=D0Y(K*1 ) +CYX II) *ODPC IK * J )*DDPC C L* J ) 

EOX (K* L ) S EC'X(K* L 1 +KXY ( I >*DDPC ( K# J > *DDPC ( L* J t 
EOY(K*L) = EOY(K*L)+KYX(n*DDPC(K*JM e DDPC(L»J) 

CONTINUE 

IF (NMB.EQ.G) GO TO 50 
DO 40 I*=1#NN6 
L-LLNNB ( I ) 

DO hO J=1*NNCT 
DO 40 K*l* NNCT 

CMX< J*K)*CMX< J*K)+CLNMB( I# 1,1 )*DDPC( J* L)*DDPC{K*L )+CLNMB< I* 1*2 )**D 
iDPC(J # L)*EEYTH(K,H+CLNHB(I,2>I)*EEYTH( J, L)*DDPC(K*U+CLNMBCI,2#2I 
2+E£YTH< J* L)*EEYTH(K*L) 

CKYC J*KI*CHY< J*K)+CLNMBtI* 3# 3 ) *ODPC < J * L) *DDPC ( K, l ) +CLNMB I I* 3,4 )*DD 
1PC ( J*L )*EEYTH(K*L)+CLNMB (1*4*3 J *£E YTH ( J * L ) *DDPC {K»L)+CLNHB< 1*4*4 J* 
2EEYTH( J* L)*EEYTH(K*L) 

KMX ( J* K l = KKiX( J*K ) + SLNMB ( I*I#1)*DDPC< J* L> +DDPC <K* L J+SLNKB( l*l#2)*DD 
1PC (J* L)*EEYTH(K*L l + SLNHB {I*2#l)*EEYTH(J*L)*DDPCtK*D +SLNMBC 1*2*2 )* 
2EEYTH( J>L)*E£YTH(K,L) 

KKY( J,K)«*KHYIJ*K)+SLNKB(I>3,3)*DDPC( J* L >*DDPC <K* l l+SLNMBI I* 3*4)*DD 
1PC ( J* L )*EEYTH{iC* LH SLN.MB ( I , 4* 3 ) *EE YTH( J, U *DDPC (K* L J+SLNMBC 1*4* 4>* 
2EEYTH< J>U*E£YTH(K*L J 

DOXt J*K)=DOX< J*K)+CLNMBU* 1*3)*DDPCC J * L )*0D PC i K*U + CLNMB( It 1*4)*0D 
1PCU*L)*EEYTH(K,L)+CINK8 U*2*3)*EEYTH(J* L)*DDPCCK#L KCLNMBC 1*2# 4 1* 
2EEYTH(J#U*EEYTH(K*U 

DOY( J*K)=DOY( J*K>+CLNMBU*3# 11*0DPCI J#L)*ODPC (K*l )+CLNHB( I* 3*2I*D0 
1PCTJ* L)*EEYTH(K*U + CLNMB( I* 4* 1 > +EEYTH ( J, U *ODPC < K* L i +CLNMB 11*4*2 !♦ 
2EEYTH(J*L>*EEYTH(K*L) 

EOX( J,K|*EOXC J/KJ +SLKMB (I# 1 1 3 l+DDPC ( J * L)*DDPC (K* LJ+SLNKBI I# 1*4 )*DD 
1PC {J* L )*EEYTH<K*L i + SLNMB (I * 2* 3 J + EEYTH ( J*l)*DDPC(K*L »+SL NHBl 1*2* 4 1 * 
2EEYTH(J*L)*LEYTH{K»L) 

EOY( J*K»=EOYC J*K)+SLNMB(I* 3# l)*ODPC< J * L ) *DDPC l K# L ) +SLNHB { I* 3*2 l*DD 
1PCC J#L }*E£YTH(K*L ) + SLNK.B < I * 4 # I J *EE YTH< J# L ) *DDPC <K# L) +S LNMB t 1*4* 2>* 
2EEYTHC J# U*EEYTH(K*L> 

CONTINUE 
DO 60 1*1* NNC T 
PFXm=0. 
hFY (I )=0« 
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IF (NNtIN.EQ.O) GO TO 90 
DO 60 I*1#NNCT 
DO 70 J=I,N 

70 MFY( I ) =MFY ( I J+DDPC (I* J ) *W ( J ) 

WMYCl> = HFYCn 
60 CONTINUE 

90 CONTINUE J 

RETURN 
END 


C 77 
C 78 
C 79 
C 80 
C 81 
C 82 
C 83 
C 89 
C 85- 
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SUBROUTINE STAB 0 

♦ it**************************************************************** 0 

THIS SUBROUTINE CALCULATES THE DAMPED NATURAL FREQUENCIES 0 

AND THE STABILITY OF THE ROTOR BEARING SYSTEM USING LEVERRIERS 0 

ALGORITHM. D 

****************************************************************** D 
REAL KXX,KXY»KYX*KYY*MFX*MFY*MUX*MUY*KHX*KMY D 

REAL LOD D 

COMMON /BLK1/ N*NB*NNLIN,NMB*NF*NU*NS* NBOW* ISTAB* IHODE* ISKU*NNCT*N D 
1UFPT D 

COMMON /BLK3/ CRT( 10) , LLeol 10) ,LLNB( b) * LLNMB (9) ,LLSK(10|*LLNT( 10)* D 
1LLUF(10)*LLFF(1C)*LLUT(1G) D 

COMMON /ULK7/ CMX (10* 10 ) *KMX ( 10, 10 ) * EMX (10# 10) * CMY( 10# 10) * KMY (10*1 D 
1 0 ) *EMY ( 10* 10) D 

COMMON /BLK6/ MFX ( 10 )* MFY ( 10 I * MUX ( 10) * HUY (10 > » KBX <10 J *MBY ( 10) D 

COMMON /BLK9/ ODPC (10* 100 ) * EE YTH ( 10* 100 ) D 

COMMON /BLK10/ SPS* SPF , S PN *S PEED1 0 

COMMON /& LK 1 1 / DOX( 1 C* 10 ) * DOY ( 10* 10 )* E OX ( 10* 10) * EOY( 10* 10 ) D 

COMMON /BLK15/ RP 1100 )* RT ( 100 ) D 

COMMON /BLK14/ A(42)*U(42)*V(42)*H(42)*B(42)*C(42) D 

COMMON AM ( 40*40 )*BM (40*40)* CM (40, 40)* DM (40* 40)* EM( 40* 40) * FM (2 ) D 

N3=MNCT*4 D 

DO 10 1*1* N3 D 

DU 10 J * 1 * N 3 D 

AM ( I* J }*0. D 

00 30 I=1*NNCT D 


D 

0 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 








I1*I+NNCT 
J 1* J + NNCT 
I2=I+NNCT*2 
J2=J+NNCT*2 
13*I+NNCT*3 
J3= J+NNCT+3 
AMU* J)*-CHX(I* J ) 
AM ( 1* J1 ) =-DOX ( 1 * J ) 
AM ( I* J 2 ) *-KMX ( I * J ) 
AH (I* J3I*-E0X( 1* J ) 
AM( II* J ) = —DOY ( I, J ) 



1 

2 
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4 

5 

6 
7 

a 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 
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AHCI1* J1)*-CMYCI* J) 

D 

39 

AM C 11* J2 ) =~EOY ( I * J ) 

D 

40 

AMC 11* J3 ) KHY C I* J ) 

D 

41 

AMCI2*I)=1. 

D 

42 

AM ( 13* 11 ) *1. 

D 

43 

AMCI#I2)*AK(I*I2C-CCf!TCI)*3. 14159/30. ) **2 

D 

44 

AMC 11, I3)-AM< 11, 13) -(CRT <11*3.14159/30. »**2 

D 

45 

fiSPEED*SPE£Dl*3. 14159/30* 

D 

46 

DO 40 I = 1*I4NCT 

D 

47 

DO 40 J»1*NNCT 

D 

48 

ll = I + NNC T 

D 

49 

Jl* J+NNCT 

D 

50 

J2-J+NNCT*2 

D 

51 

DO 40 K*1*N 

D 

52 

AttCI* J1)=AMCI*J1)-RSPEED*RPCK)*EEYTHC I*K)*EEYTHCJ*K)/386.4 

0 

53 

AH (li» J>s AM 11* J)+RSPEED*RPCK>*EEYTHC l*K»*EEYTHC J,K| Z386.4 

D 

54 

N4--NNCT+4 

D 

55 

TRAC E = 0. 

D 

56 

AC N4*l) =1 • 

0 

57 

DD 50 1 = 1* N4 

0 

58 

TRACE*TRACE-AMCI*IJ 

0 

59 

A CN4 T=TRACE 

D 

60 

DO 70 1-1*144 . 

0 

61 

DO 60 J*i*N4 

0 

62 

BM C I * <J ) * AM < I * J ) 

D 

63 

BMCI*I)*BMCI*n-HRACE 

D 

64 

DO 80 1*1* (44 

D 

65 

DMC I* 1) *BM< 1* 1) 

0 

66 

CONTINUE 

0 

67 

DO 140 K*2*N4 

0 

68 

K1*N4+1~K 

0 

69 

trace-o. 

0 

70 

DO 90 I=1*N4 

0 

71 

DO 90 J* 1*N4 

0 

72 

CMC I* J )=0 . 

D 

73 

DO 90 L*1*N4 

0 

74 

CMC I* J ) =CM (1* J T+AMC 1*1) *BM< L* J ) 

0 

75 

DO 100 I«1*N4 

D 

76 


100 T RACE=TRACE~CM ( I t I ) 

TK=K 

A ( K1 ) = TR AC E /TK 
00 120 1=1, N4 
DO 110 J=l, N4 
110 BM(Ij J)*CKtl,J) 

120 BH(I,I)=QH(1, 1)+A(K1 ) 

DO 130 1=1#N4 
BMII,K)*BH(I,1) 

130 CONTINUE 
140 CONTINUE 

NPLUSZ=N4+2 

CALL PROOT (N4,CQNV, NPLUS2) 

WRITE (3,160) 

WRITE (3,210) SPEE01 
WRITE (3,190) 

DO 160 1=1, N4, 2 
K=N4-I*1 
■ 1 = ( 1 + 1 ) /2 
UNDF=CRT(J ) 

DHF*0. 

AMF-O. 

L0D=0. 

UNF*0. 

IF (V(K).EQ.O. ) GO TO 150 
IF (U(K).EQ.O.) GO TO 150 
DMF=V(K)*9. 549296 

AMF=(U(K)*U(K)+V(K)*V(K))/(-2«*U(K)*V{K)) 

L0D=-2.*3.141£9*U(K) / VC K I 
IF (ABS(U(K)).GT.ABS(V(K))) GO TO 150 

UNF=(U(K)*ULK)+V(K)*V(K) ) *9. 549296/ ( ( V ( K | *V ( K )-U (K >*U (K ) ) +*. 5 ) 
150 CONTINUE 

WRITE (3,200) J,UNDF,U(K),DHF,UNF,AHF,LOD 
160 CONTINUE 

IF (IMODE. 

CALL 0 MOO £ 

170 CONTINUE 
RETURN 



D 77 
D 7 e 

D 79 
D 80 
D 81 
D 82 
D 83 
D 84 
D 85 
0 86 
0 87 

D 88 
D 69 
0 90 

0 91 

0 92 

0 93 

D 94 
D 95 
D 96 
D 97 
D 98 
D 99 
D 100 
D 101 
D 102 
0 103 
D 104 
0 105 
D 106 
D 107 
D 108 
D 109 
D 110 
0 111 
0 112 
0 113 
D 114 


ro 

Ut 

Ul 


t , o 115 

160 FORMAT D U 6 

190 FORMAT ( 5X.»#MQDE** AX >*UN DAMPED** 7X* *DAMPING*#6X* *DAMPED*»9X* *UNBAL D 117 
lANCE**6X**AMP.**llX**LaG** /* 5X**N0.** 5 X ,*FREQUENCY*, 6X» ^EXPONENT*# 0 118 
27X>*FR£0UENCY**6X**FR£QUENC Y*# 6X* *FACTQR**9X#*0£CREMENT t» 1 9 13X>*(R 0 119 

3PM)**9X>*(1/SEC ) *>6X>*<RPM)** 10X>^IRPH1 *» 10X** ( DIM) *» 10X# # < DIM I *» / D 120 
A# 13X* *( A VE * K )**//) D 121 

2C0 FORMAT <6X, IZ> 5 (5X#F10. 2) * 5X> E10. A ) D 122 

210 FORMAT <* SPEED IN RPM = *>F15.2) 0 123 

END 0 12A 


to 


SUBROUTINE PRUOT CN*CONV*NPLUS2) El 

COMMON ZbLKlA/ AC 42 J » U< A 2 ) * V £ 421 * H{ 42 ) * B ( 42 ) »C ( A2 ) E 2 

C E 3 

C THIS IS A SUBROUTINE SOLVING FOR THE ROOTS OF A POLYNOMIAL E A 

C £ 5 

CDNV*l*E-35 E 6 

NC*N+ 1 E 7 

C SEND COEFFICIENTS TO REDUCED COEFFICIENT STORAGE E B 

DO 10 I*1*NC E 9 

10 HC I)*A (I ) E 10 

C INITIALIZE GUESSES AND SET REVERSAL INDICATOR NORMAL E 11 

P=0. E 12 

0=0. E 13 

R*0« E 1A 

IRE V= 1 E 15 

C SCALING TO BE DONE AT THIS POINT E 16 

C REMOVE ALL ZERO ROOTS E 17 

20 IF CHC1IJ 50*30,50 E 18 

30 NC*NC- 1 E 19 

VCNC )*G« E 20 

UCNC ) =0* E 21 

DU AO 1*1# NC E 22 

AO H ( I )*H C 1+1) E 23 

GO TO 20 E 2A 

C TEST FOR VARIOUS DEGREES E 25 

50 IF (NC-1) 60*A60,60 E 26 

60 IF INC— 2 ) 60# 70* 80 E 27 

70 R=-HC1I/HC2) E 28 

GO TO 330 E 29 

80 IF CNC-3) 100*90* 100 E 30 

90 P=H( 2) /HC 3) E 31 

0*HC1)/HC3I E 32 

GO TO 380 E 33 

C TEST TO REVERSE COEFFICIENTS AND DO SO IF TEST SUCCEEDS E 3A 

100 IF CABS(HCNC-l) /HCNCn-ABSCHCZI/HCiH I 110*170*170 E 35 

110 IRE V=-IR EV E 36 

M*NC/2 E 37 

DO 120 I* 1* M E 3e 


ro 

Ln 


NL= NC + 1-1 E 39 

F=H(NL) E 40 

H ( NL 1 =H ( I ) E 41 

120 H ( I ) =F E 42 

IF (0) 140,130*140 E 43 

130 P = 0. E 44 

GO TO 150 E 45 

140 P = P/G E 46 

0=1 . JQ E 47 

15C IF (R) 160,170,160 E 48 

160 R=l./R E 49 

C NEWTON, CALCULATE F (P ) AND TEST FOR ROOT E 50 

170 E* 5. E-20 E 51 

B(NC ) = H ( N C ) E 52 

C(NC)*H(NC) E 53 

B{ NC+1 ). = 0. E 54 

C ( NC+ 1 ) *0* E 55 

NP=NC -1 E 56 

160 OD 310 4=1,1000 E 57 

DO 190 11=1, NP E 58 

I =NC-I 1 E 59 

B ( I ) =H ( I ) +R*B 1 1 +1 ) E 60 

190 C(I)=B(I)*R*C(I+1) E 61 

IF (ABS(B(1>/H(in-E) 330,330,200 E 62 

200 IF ( C ( 2 ) ) 220,210,220 E 63 

210 R=R+1. E 64 

GO TO 230 E 65 

220 R=R-B(1) /CC2) E 66 

C MAKE A BAIRSTCW REDUCTION AND CORRECT E 67 

230 00 240 11=1, NP E 68 

I=NC— II E 69 

B(I)=H(1 1-P’rB { 1+ 1 |-Q*B ( 1 + 2 ) E 70 

240 C<I)=B(l)-P*C(I+l»-Q*C(I+2) E 71 

C TEST FOR CONVERGENCE OF BAIRSTOW PROCESS. E 72 

IF ( H 1 2 1 ) 260,250,260 E 73 

250 IF (ABSCB(2)/H(1) J-E) 270,270,280 E 74 

260 IF t A8S (B (2 ) /H(2) )-E ) 270,270,280 E 75 

270 IF ( ABS(B<1 l/HIlll-E) 380,380,280 E 76 




258 


F" 




j 



280 CBAR=CC2 1 — B C 2 ) 

D*CC 3)**2— CBAR+C {A ) 

IF CO) 300*290>300 
290 P = P-2 • 

Q=C* (Q+l • ) 

GO TO 310 

300 P«.Pf(Bl2)*C(J)-B(l)*C(M)/0- 

t*0+(-BC2)*CBAR+BCl)*CC3) )/D 
310 CONTINUE 
8 = 6 * 10 . 

IF CE-CONV) 180*180*320 
320 CONV=E 

GO TO 180 

C LINEAR. COMPUTE ANO STORE LINEAR ROOTS 

330 NC=NC-1 
VCNC)=Q. 

IF CIREV) 390,350,350 
390 U ( NC )= 1 • /R 
GO TO 360 
350 U C NC ) =R 

360 DO 370 1*1, AC 
370 HC I) *8(1+1) 

GO TO 50 

C QUADRATIC. SOLVE QUADRATIC AND STORE ROOTS 

360 NC=NC-2 

IF CIREV) 390*900*900 
390 GP=1./Q 

PP*P/(Q*2.0) 

GO TO 910 
900 GP=Q 

PP*P/2.0 

910 F* ( PP ) **2— GP 

IF (F) 920*930,930 
C CASE OF IMAGINARY ROOTS. 

920 U (NC+1)=-PP 
U ( NC ) =-PP 
VtNC+l)*S0RT(-F) 

V(NC)=-VCNC+1) 


E 77 
E 78 
E 79 
E 60 
E 81 
E 82 
E 63 
E 89 
E 65 
E 86 
E 87 
E 88 
E 89 
E 90 
E 91 
E 92 
E 93 
E 99 
E 95 
E 96 
E 97 
E 98 
E 99 
E 100 
E 101 
E 102 
E 103 
E 109 
E 105 
E 106 
E 107 
E 108 
E 109 
E 110 
E 111 
E 112 
E 113 
E 119 



to 

in 

10 




GD TD *40 E 115 

C CASE OF REAL ROOTS. £ 116 

*30 U(NC+1)=-S1GNIABS(PP)+SQRT(F)»PP) E 117 

V( NC+1 )=0 • E 118 

U ( NC ) = UP /U {NC + 1 ) E 119 

V (NC J =0. E 120 

C FGRN NEW REOUCEO COEFFICIENTS E 121 

**0 00 *50 1*1. NC E 122 

*50 h( I )=B( 1+2) E 123 

GO TO 50 E 12* 

*60 RETURN E 125 

END E 126- 
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SUBROUTINE OMQDE F 1 
********+** *** ******* ****************** *************************** p 2 
THIS SUBROUTINE CALCULATES THE DAMPED MODE SHAPES OF THE SYSTEM F 3 
USING THE LEVERRIERS ALGORITHM. FA 
*♦+*************************%****************************♦*♦****** F 5 
COMPLEX SMQDE(2>100)*SHAPE(A0>*C1»C2»C3 F 6 
COMPLEX CD ( AO I F 7 
DIMENSION Z(100)» P(IOO) F 8 
COMMON ABLK 1/ N,NB>NNLIN#NMB>NF,NU>NS,NBOW, ISTAB, IMGDE* ISKU>NNCT»N F 9 



1UFPT 


F 

10 


COMMON /BLK9/ DCPC ( 10* 100 ) , EEYTH (10# 100 ) 

F 

11 


COMMON /BLK1A/ AA(A2)»U(A2)#V{A2)#H(A2)>BB(A2)jCC<A2I 

F 

12 


COMMON A(AO#AO»,BCAG,AO»fC(AO,AOWDIAO,AO»,ECAO,AO)#FMI2l 

F 

13 


N4-NNCT* A 


F 

1A 


DO 110 1 S 1«I MODE 


F 

15 


KK=N4— 2* 1+2 


F 

16 


IF (ABSCVCKKM.LT.l.) GO TO 110 


F 

17 


Cl»CMPLXtU(KK)» Vf KK) ) 


F 

18 


C2=1./C1 


F 

19 


N3=NA-1 


F 

20 


DO 10 J=1«NA 


F 

21 

10 

SHAPE ( J ) *CMPLX (0 . #0 . ) 


F 

22 


SHAPEU>=CMPLX<1.*0.1 


F 

23 


DO 50 J-1*N3 


F 

2A 


DO 20 K-1,NA 


F 

25 

20 

CD(K)=CMPLX(D(K> Jt>0.) 


F 

26 


DO 30 L=1,NA 


F 

27 


DO 30 K = l* J 


F 

26 


CD(L ) =CD CL I*C2 


F 

29 

30 

CONTINUE 


F 

30 


DO AO K*1,N4 


F 

31 

AO 

SHAPE(K)=SHAPE(K) +CO(K> 


F 

32 

50 

CONTINUE 

B| 

F 

33 


DO 60 J«1*N 

F 

3A 


SMODE 11* J)*CMPLX(0.»0. ) 


F 

35 

60 

S M DD E ( 2 * J ) = C M P L X ( 0 • # 0 . ) 

I| 

F 

36 


N2«KA/2 

F 

37 


Nl*N2/2 

ffi ^ 

F 

3P 


$ 

H 

k‘ 
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DO 60 J=1,N1 F 39 

J L = J + N 2 F 90 

JM= J+N2+N1 F 91 

DO 70 K = 1, N F 92 

SHCDE(1,K)=SH0DE(1,K)+SHAPE(JL)*0DPC(J,K) F 93 

70 SM00£(2,K)=SHGDfc (2,K)+SHAPE( JM)*DOPC( J,K) F 99 

60 CONTINUE F 95 

ZMAX*0. r 96 

DO 90 J = 1 , N F 97 

Di = REAL (S MODE ( 1, J ) ) F 96 

D2=REAL(SM0DE(2, J) ) F 99 

Z(J)=SQRT(D1 *01*02*02) F 50 

P( J)=57.295779*ATAN2(-02,01 ) F 51 

IF (ZMAX.GT. Z( J) ) GO TO 90 F 52 

ZMAX=Z ( J ) F 53 

90 CONTINUE F 59 

V 1=9*699 29 6* V(KK) F 55 

WRITE (3,120) U(KK),V(KK), VI F 56 

WRITE (3,130) F 57 

DO 100 J«1 , N F 58 

Xl=REAi_ (SMGDEtl, J) ) /ZMAX F 59 

X2=AIMAG(SMG0E(1, JU/ZMAX F 60 

X3=REAL(SMQDE(2,J))/7MAX F 61 

X9 = AIMAG (5 NODE (2,J))/ZMAX F 62 

TMAJ = (.5*(X1*X1*-X2*X2+X3*X3 + X9*X9 ) + ( . 25* ( X 1*X1+X2*X2-X3*X3-X9*X9 )* F 63 

1*2+(X1*X3+X2*X9)**2)**.5 }**.5 F 69 

TMIN=( X2*X3-X1*X9)/TMAJ F 65 

C0N1=2.*(X1*X3+X2*X9) F 66 

CON 2= (X 1*X 1 + X2*X 2— X 3*X3— X9 + X9 ) F 67 

PHASE =.5*57. 296?S*ATAN2(C0N1,C0N2) F 68 

IF (PHASE • LT. 0) PHASE*PHASE+360. F 69 

ZD I f'1= Z ( J ) / ZM AX F 70 

WRITE (3,190) J, TKAJ, THIN, PHASE, P(J ),ZDiH F 71 

ICO CONTINUE F 72 

110 CONTINUE F 73 

RETURN F 79 

C F 75 

120 F Ok NAT (1H1, ///, 10X, ^EIGENVECTOR FOR EIGENVALUE -*» F10. 2, *+*,F10. 2, F 76 
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1*1 DAMP tO FR£QUENCY«*>rl2.2**RPM*) F 77 

130 FORMAT ( />5X, *STATIQH** 3X> *MA JOR AXIS/* 5X, *MINOR AXIS** 5X» KELL IPSE F 76 
1*»8X»*PHA$£**10X**P0T0R*.»/*5X**N0«**37X* WANGLE** 10 X* *ANGLE* *10X#* A F 79 
2MPLITUDE**//) F 80 

140 FORMAT < 5X*I3*7X,5IF10.3,5X) > F 61 


r> n o o o 


\S -. ' - 


rvwr-'.Hr 


10 


SUBROUTINE UBS T (IND,SD) G 

****************************************************************** 6 
THIS SUBROUTINE CALCULATES THE UNBALANCE RESPONSE OF ROTOR SYSTEM G 
USING THE PLARAR NODES. WHICH CAN LATER BE TRANSFORMED INTO REAL 6 
DISPLACEMENTS. G 

****************************************************************** £ 
REAL KBX, MBY G 

DIMENSION SPE0I50 ) G 

COMPLEX B#C,DUM G 

COMPLEX EUM G 

REAL KXX,KXY,KYX,KYY,MFX,MFY, MUX»MUY#KMX, KMY G 

COMMON /B LKl / N,NB, NNLIN* NMB,NF, NU,NS ,NBOW» ISTAB, INODE# ISKU, NNCT#N G 
1UFPT G 

COMMON / B LK3 / CRT (10) , LLBD I L0> ,LLNB(5 I , LLNMB (9 ) , LLSK ( 10) >LLNTUO » * G 
1 LLUF ( 10 ) , LLFF ( 10 ) ,LLUT( 10 ) G 

COMMON /BLK5 / UX( 10) > UY ( 10 ), FX (10 ) , FY ( 10) » FSKt 101# PSM 101 G 

COMMON /BLK7 / CMX( 10, 10 ),KMX ( 10, 10 ) , EHX t 1C, 1CI# CMYt 10, 10) # KMY ( 10, 1 G 
1C),EMY(10,1G) G 

Cl-PP.uN /BLK 6/ MF X (10 ) , MF Y( 10 ) , MUX ( 10 ) , MUY (10 ) ,HBX ( 1C) ,MBY ( 10) G 

common /a lk9/ dopc<ig,ico), eeyth(10,ioo) g 

CuMMLH / LLK 10/ SP S, S PF , S PH, S P F EDI G 

COMMON /BLK 11/ CbX ( 1 G, 1 G ) , DQY ( 1G, 10 ) , EOX t 10, 10 ) , EGY ( 1 C, 10 ) G 

C Or Mol, /BLK 15/ P P (1 00 ) » RT( ICO) G 

LuMMf N / B L K 1 1 / AKK(IO) G 

COMMON / ft L K 2 1 / CM X ( 1 0, 10 ) , DMY C 10 » 10 ) G 

Cuhi'lrli / 5 L K 2 4 / B (ZC, Z1 ) ,C ( 20), G 

COMMLU GO IS P ( 10, 5G ) , bi, i SPXT ( 1C » 5C),U0ISPYF(1C, SO) ,UD I SP YU 1G , 50) G 
1, Xi>, Aj (10,50) , XM I K ( 1 0, 50 ),PMAJ(10,5G ), PMIM ( 10,50) ,AD UMMY (4002 ) G 

S P I=S PN G 

U* I G 

DO 170 JSP=1, 50 G 

IF (1ND.E0.1) GO TO 10 G 

SP=SPS+(JSP-1)*SPI G 

IF (SP.GT.SPF) GO TO 100 G 

ANGS P=S P*3 • 14159/30 • G 

SP EO ( I J ) =SP G 

GO TO 20 G 

ANGSP=SD*3. 14159/30. 6 


1 

2 

3 

A 

5 

6 
7 
6 
9 

10 

11 

12 

13 

14 

15 

16 
17 
IB 

19 

20 
21 
Z2 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 


4 


to 

o% 






20 CONTINUE 6 39 

NH=NNCT*2 6 *0 

hH=NNCT*2+l 6 41 

DUK=CHPLX(0.>1.) G 42 

EUK-ChPLXtl.,0. J G 43 

DO 30 I*1#NNCT G 44 

NUX(U = G. G 45 

r-UY C 1 ) = 0 . G 46 

3u COliT ItUE G 47 

IF (NU.EQ.O) CO T H 60 G 46 

UO 50 I = 1 > N U G 49 

J-LLUF( I) G 50 

DQ 40 K=1>NNCT G 51 

nUX(K) = NUX(N) + ANGSP*ANGSP*UX(l)*LDPC(K, J) G 52 

luJY(«<)=NUY(N ) + ANGSP*ANGSP*UY(n*DOPC(K» J) G 53 

40 CONTINUE G 54 

50 CONTINUE G 55 

60 IF US.EO.O) GO TC 90 G 56 

LO 30 1 = 1 > NS G 57 

J=LLSK(Ii G 56 

PAS = PSK( D/57,2957? G 59 

PCGS=COS (PAS > G 60 

PSIN*SIN (PAS ) G 61 

DO 70 K=1*NNCT G 62 

HUX<K)=MUX<K>+ANGSP*ANGSP*FSK(I1*PC0$*(RP< J)-RT( Jn*EEYTH(K*Jl/386 G 63 

1*4 G 64 

70 MUY ( K) = NUY ( K) + ANGSP * ANGSP*FSK( I)*PSlN*(RP(J)-RT(Jl)*EEYTH(K#J)/386 G 65 

1.4 G 66 

60 CONTINUE G 67 

90 CONTINUE G 68 

IF (NBOW.EQ.O) GO TO UO G 69 

DO 100 1*1 # NNCT G 70 

KUX ( I) =KUX ( 1 )+HB X ( I ) G 71 

1GU HUY ( I ) =HUY (I l+NBY (I ) G 72 

110 CONTINUE G 73 

DO 120 K=1»NNCT G 74 

DO 120 L= 1# NNCT G 75 

EHX(Krl)'EOX(K;U G 76 


to 

O' 

Ui 




EMYLK., L) = EQY (K, L ) G 77 

DMX(K,L)=OOX(K, L) G 78 

DMY(K,L) = OOY(K»D G 79 

00 120 J = 1, N 6 80 

DFlXlK,L >=DNX(K,L>+ANGSP*RP<J)*EEYTH(K, J)*EEYTHtL, J) /386.4 G 81 

DMYCK»t)=DMYiK,L)-ANGSP*RPCJ)*EEYTHCK/J)*EEYTH(L,J 1/386* A G 82 

120 CONTINUE G 83 

DO 140 1=1,10 G 84 

DO 130 J=l, 11 G 85 

130 Btl, J)*CMPLXC0.,O. ) G 86 

140 C(I)=CHPLX(0.,0. » G 87 

DO 160 I* 1, NNCT G 88 

I I=I*NNC T G 89 

00 150 J*l, NNCT G 90 

J J=J+NNCT G 91 

Btl, J)=BCI,J)+KHXiI, J)*EUM+CNX(I,J)*DUM*ANGSP G 92 

Btll, J >=B< II, J)+EKY( 1, J1*EUH+DMY(I, J)*DUK*ANGSP G 93 

B(I, JJ)=B(I,JJ )+EHX(I,J)*EUH+DHX( I, J)*DUH*ANGSP G 94 

150 Btll, JJl=BtIl,JJ)+KMYtI,4l*EUK+CHY(I,Jl*0UK*ANGSP G 95 

B(l,I)=B(I,l)+((CRT(I)*3«14159/30«)**2-ANGSP**2) *EUM G 96 

B< II, II )=B(ll,in + ( ( CRT Cl) *3. 14159/ 30. )** 2-ANGS F**2 ) *£UM G 97 

NEX= NNCT *2+1 G 96 

B( I, NEX ) =— CttPLX (MUX ( I ) , HUY ( I ) ) G 99 

160 B( H,NEX)*-C«PLX(KUY(I),-HUXm) GlOO 

CALL SOLVE (NN,NBI ' G 101 

IF UND.EO.l) RETURN G 102 

CALL ELLIP (NN, I J ) G 103 

IJ=IJ+1 G 1C4 

170 CONTINUE G 105 

IfcO CONTINUE G 106 

NPP=iJ-l G 107 

CALL UPRINT <NPP,SPED> G 108 

RETURN G 109 

END G 110- 
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SUBROUTINE SOLVE (NNjHM) 

COMPLEX B,C, 0UKMY,C0NJ6 
COMMON /BLK29 / B ( 20, 21 ) , C ( 20 > 

OG BO 1=1, NN 
K = 1 

10 IF (CABS(B(K,1 ) ) • GT >0*000001) GO TO 20 
K*K+1 

IF (K-UKJ 10# 10,90 
20 IF C I— K > 30,50,90 

30 GO 9G M = 1 , M K 

OUMMY-B { I,H ) 

B ( I, Hi =6(K,MI 
90 B ( K, H ) =DUMMY 

50 11*1+1 

IF ( II.GT.NN ) GO TO 00 
DO 70 N-II,«N 

IF (CABS(B{H,I) I.LT.O. 000001 ) GO TO 70 
S0*(CA8S(B(l»IH)*+2 
DUMMY=b(N,n*CQNJG(B(I, I) )/S0 
DO 60 K*I,KH 

60 B{ N, M ) *B ( N, M )— B ( I , M J * DUMMY 

70 CONTINUE 

60 CONTINUE 

GO TO 100 

90 IF (I.EQ.HNI WRITE C3,15G) 

IF (I.LT.NN) WRITE 13,160) 

STOP 

C START BACK SUBSTITUTIONS 

100 I = NN 

110 OUHHY*CC. 0,0.0) 

IF (I.EC.NN) GO TO 130 
JJJ*I+1 

DO 120 J=JJJ,NN 
120 DUMMY *OUKMY+B< I, J»*C( J) 

130 $G-(CA6S(b(I,I) )) * * 2 

C (1)=-(0UMMY+B( I,Mtf n*CQNJG( B(I, II ) /SO 
1 = 1-1 

IF (1) 190,190,110 


& 


H 1 
H 2 
H 3 
H 9 
H 5 
H 6 
H 7 
H 8 
H 9 
H 10 
H 11 
H 12 
H 13 
H 19 
H 15 
H 16 
H 17 
H 18 
H 19 
H 20 
H 21 
H 22 
H 23 
H 29 
H 25 
H 26 
H 27 
H 28 
H 29 
H 30 
H 31 
H 32 
H 33 
H 39 
H 35 
H 36 
H 37 
H 38 
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RETURN 


140 

C 

ISO 
1 £.0 


FORMAT 

FORMAT 

END 


(4Xj 19HMATRIX HAS ZERO ROW) 

( 4X* 22HM ATR IX HAS ZERO COLUMN) 


H 39 
H 40 
H 41 
H 42 
H 43- 
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SUBROUTINE tLUP (NN,IJ) I 1 

C **************** ************************************************** I 2 

THIS CALCULATES THE REAL DISPLACEMENTS FROM MEDAL COORDINATES I 3 

AND THE INTO ELLIPTICAL ORBITS. ALSO CALCULATES THE PHASE ANGLES I 4 

WITH PROBES AT X-DIR AND Y-DIR. I 5 

****************************************************** *+****++***+ i 6 

COMPLEX B,C 17 

COMMON /BLK1/ N, NB, NNL IN, NMB ,NF, NU, NS, NBOW, ISTAB, IMODE, ISKU,MNCT,N I 6 

1UFPT I 9 

COMMON /BLK3 / C RT ( 1 0) , L LBD <10 ) , LLNBt 5 > , LLNMB < 9 ) , LLS K ( 10 ) ,LINT{ 101 , I 10 

1LLUF ( 10 ) , LLFF ( 10) , LLUT ( 10 ) I 11 

COMMON /BLK9/ OOP C ( 1 0, 100 ) , EEYTHI 10, 100) 1 12 

COMMON /BLK24/ B { 20, 21 > , C ( 20 ) I 13 

COMMON UDlSPXR(10,SO)»UDISPXI(10,50),UDISPYR(10,50),UDlSPYI(10, 50) I 14 

1,XMAJ( 10, 50), XM IN 1 10, 50), PMA J( 10, 50) , PM IN ( 10, 50 ), ADUMMY 1 4002) I 15 

DO 10 1=1,10 I 16 

XMAJ ( 1, IJ)=0. I 17 

XMIN ( I, IJ ) =0 . I 18 

PMAJ ( I, I J ) =0, I 19 

10 FMIN ( I, I J ) = 0« I 20 

DO 50 1=1, UUFPT I 21 

Il = LLUT',i; I 22 

X1»0. I 23 

X 2 = 0 • I 24 

X3=0, I 25 

X4 =0 • I 26 

NNCT=HN/2 I 27 

DO 20 J=1»NNCT I 28 

J J = J+NNCT I 29 

C1 = REAL(CCJ ) ) I 30 

C2 = AIKAGtCC J) ) I 31 

C3 = REAL(CUJ)l I 32 

C4=A1MAG(C( JJJ) I 33 

X1=X1+C1+DDPC< J, ID + 1000. I 34 

X2=X2+C2*DDPC(J»II)*1000. 1 35 

X3=X3+C3*DDPC I J, I I ) *1000 . I 36 

20 X4=X4+C4*DDPC(J,II)*2000. I 37 

UOlSPXRt I,IJ )=X1 I 38 
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U01SPX I ( I* I J) =X2 I 

ODISPYk ( I* I J ) =X 3 I 

UDISPYI(I,IJI=XA I 

XftAJ(I,lJ) . 5*< X1*X1+X2*X2 + X3*X3 + XA*XA> + <.25*{X1*XH-X2*X2-X3*X3-X I 
lA*XA)**2+< X1*X3+X2*XA )**2 )**.5)**.5 I 

Xf1lN<I>IJ) = (X2*X3--Xl*XA )/XHAJTI> I J 1 I 

C0NI=2.*(X1*X3+X2*XA) I 

C0N2=(X1*X1+X2*X2-X3*X3-X4*XA) I 

If CC0N2.EG.0.) GO TO 30 I 

PMAJ( I,I,»)*.5*57.29578*ATAN2<CQN1*C0N2) I 

GU TO AO I 

3C PMAJU,IJ)*C* I 

AO CONTINUE I 

IF CFMAJ(UIJ> .LT.O.) PMA J Cl, IJ ) »PHA J (I , IJ ) +360 . I 

50 CONTINUE I 

RETURN I 

END I 



SUBROUTINE UPRINT (NPP,SPED) 

******** **************+>*** **************************** +*+****♦♦** 
THIS SUBROUTINE PRINT OUT THE UNBALANCE RESPONSE QF THE ROTOR AND 
ITS CORRESPONDING ELLIPIICAL ORBITS. 

4 * 4 *************************************************************** 


DIMENSION S PED( 50) 

COMMON / BLK1/ N,NB,NNLIN,NMB, 
1UFPT 

COMMON /Bt K3 / CR T< 10 ) , LL8D ( 10 
1LLUF(10),LIFF(10),LLUT(10) 
COMMON UOISPXR( 10, 50) ,UOISPX I 
1>XMAJ(1G,50)»XMIN(10,50),PMAJ 
DO 20 II *i,NUFPT 
NTB = LLUT C II ) 

WRITE C 3* BO ) NTB 
WRITE (3,50) 

DO 10 J J=1,NPP 

P=PANG(UDISPYI(II, JJ),UDISPYR 
PA=CGS(P*3.19159/180.) 
R«UDISPYI( II, JJJ/PA 
WRITE (3,60) S?ED(JJ),UOISPXR 
1,UDISPY1(II, JJ) 

CONTINUE 
CONTINUE 
DO 90 II*1,NUFPT 
NTB*LLUT ( II ) 

WRITE (3,60) NTB 
WRITE (3,70) 

DO 30 J J=1,NPP 

PX=57.2957S+ATAN2(-UDISPXI(Il 
PY = 57.29578*ATAN2(-'JDISPYR(II 
WRITE (3,90) SPED ( J J ) ,XMAJ (II 
CONTINUE 
RETURN 


NF, NU, NS, NBOW, I STAB, I MODE, ISKU,NNCT,N 
), LLNB ( 5) , LLNMB (9),LLSK(10), LLNT ( 10) , 

(10.50 ) ,UDISPYR( 10, 50 ),UDISPYI (10,50) 

(10.50) ,PMIN(10,5Q), ADUMMY (9002 ) 


(II, JJ) ) 


(II, JJ),UDISPXI(II,JJ),UDISPYR(II, JJ) 


,JJ),UDISPXR(It,JJ)) 

,JJ),-UDISPYI(II,JJ)) 

, JJ),XMIN(II,JJ),PMAJ(II, JJ),PX,PY 


FORMAT (//,9X,*SPEED*,10X,*X— REAL*>10X,*X—IKAG*,10X,*Y“REAL*,10X,* 
1Y-IMAG*) 

FORMAT ( 5X,F10.0,9(5X,F10.5) ) 


J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 


1 

2 

3 

9 

5 

6 

7 

8 
9 

10 

11 

12 

13 

19 

15 

16 
17 
IB 

19 

20 
21 
22 
23 
29 

25 

26 

27 

28 

29 

30 

31 

32 

33 
39 

35 

36 

37 
30 
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70 


FORMAT <//,9X, /SPEEDS, 8X»*MAJ0R AXIS*j8X#*MIN0R AXIS*,2X»# MAJOR J 39 
X AXIS ANGLE*j 5X#*PRGBE AT X*, 5X, *PROBE ' AT Y*#/»9X>*tRPM)**12X#*fMI J AO 
2LS)**10X,*(MILS)? i >10X,*0EGREE$/»10X,i‘PHASE DEGX* EX* *PH ASE DEG#»/> J A1 
80 FORMAT ( 1H1 t t / >* UNBALANCE RESPONSE OF STATION NG.*»I5»/) J A2 

90 FORMAT { 5X# F 10. 0# 6 C AX ,F 1 3 . 51) J A3 

END J AA- 


to 

>1 


FUNCTION PANG (AFCS*AFSN) K 1 

C K 2 

C * THIS IS A FUNCTION USED TO CALCULATE THE ANGLE **♦* K 3 

C * WHOSE ARCTAN VALUE IS GIVEN ************* K 4 

C K 5 

ACS* AFC S K 6 

ASN=AFSN K 7 

IF (ASN) 40*1G*40 K 6 

1G IF (ACS) 20*30*30 K 9 

2G AN G* 180*0 K 10 

GQ TO 120 K 11 

30 ANG s O *0 K 12 

GQ TO 120 K 13 

40 IF (ACS) 90*50*60 K 14 

50 IF (ASN) 60*30* 70 K 15 

60 ANG=270. K 16 

GO TO 120 K 17 

70 ANG=90. K 16 

GO TO 120 K 19 

60 ANG=Q • K 20 

GO TO 100 if 21 

90 ANG*-180. K 22 

100 ASN-ASN/ACS K 23 

ACS-ABS(ASN) K 24 

ACS= ATAN ( AC S ) K 25 

ANG=ANG+ACS*57. 295780 K 26 

IF (ASN) 110*120,120 K 27 

110 ANG=-ANG K 28 

120 IF (ANG) 130*140,140 K 29 

130 ANG-ANG+360 • K 30 

140 P ANG=ANG K 31 

RETURN K 32 

ENO K 33- 


N 

U> 


on on 
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SUBROUTINE SFTBGW 

****************************************************************** 
THIS SUBROUTINE CALCULATES THE SHAFT BOW EFFECTS INTO MODAL 
COORDINATES. (FOR INITIAL CONDITIONS AND UNBALANCE EFFEC 

«*«**$*** ******************************** ****** *********** ******** 


DIMENSION BX ( 100 ) » BY(100> 

DIMENSION XUC), Y(10), Z(10,10> 

REAL HBXjMB Y 

COMMON /BLK1/ N, NB, NNL IN,NKB,NF,NU, NS, NBQW, I STAB* IMODE, ISKU,NNCT»N 
1UFPT 

COMMON /BLK3/ CRT (10 ) ,LLRO ( 10) ,LLNB C 5 ), LLNMB C9) * LLSKt 10 ),LLNT< 10) , 
1 LLUF ( 10) * LLFF (10) ,LLUT ( 10 ) 

COMMON /BLK6/ BOWt 100 ) , PB OW ( 100 ), X IDC ( 100) , Y IDC (100 > » VXIOC C 100) #VY 
1I0C(100),BXA(100),BYA(100) 

COMMON /BLK8/ MFX (10 ) ,HFY ( 10) ,MUX(10) » MUY ( 10 ),MBX( 10),MBY C 10) 
/BLK9/ DDPC( 10, 1QQ),EEYTH( 10,100) 

/BLK15/ R P ( 100 ) , R T( 100 ) 

AKK(IO) 

DX(IOO) 

W1100) 


COMMON 
COMMON 
C OMMON 
COMMON 
COMMON 
DO 10 


/BLK18/ 
/BLK19/ 
/BLK22/ 
1 = 1, N 


CT=PBOW (I)*3. 14159/180* 

BX(I )=BOW(I)*CQS(CT) /100G. 

BY ( I ) = BOW ( I ) *S IN( CT ) /1000. 
TC=(BX(2)-BX(1) )/DX(l) 
T0«(BY(2)-BY(in/DXm 
BXA(1 )=ATAN(TC) 

BYA( 1)=ATAN(TD ) 

TC=(6X(N)-BX(N-1) )/0X(N-l) 

TD = (BY(N)-BY(N-l) ) /DX (N-i ) 
BXA(N)=ATAN(TC) 

BYA(N)=ATAN(TD) 

N1=N-1 

DO 20 1=2, N1 

TC={BX(i+l)-BX(I-l))/(DX(I-l)+DX(I>l 
TD=(BY(I+1)-BY(I-1))/(DX(I-1)+DX(I ) ) 
BXA(1)=ATAN(TC) 

BYA( I ) = ATAN(TD ) 


l l 
L 2 
L 3 
L 4 
L 5 
L 6 
L 7 
l 8 
L 9 
L 10 
L 11 
L 12 
L 13 
l 14 
1 15 
L 16 
L 17 
L 18 
L 19 
L 20 
L 21 
l 22 
L 23 
L 24 
L 25 
l 26 
L 27 
L 28 
L 29 
L 30 
l 31 
l 32 
t 33 
L 34 
L 35 
L 36 
L 37 
L 36 
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2C 

CONTINUE 

L 

39 


DO 60 I=1,NNCT 

L 

40 


X (11=0. 

L 

41 


Y( 11=0. 

L 

42 


00 40 J =1# NNCT 

t 

43 


HI, J)=0. 

L 

44 


DO 30 K*1,NB 

L 

45 


L=LLBD (K 1 

L 

46 

30 

111, J)=Z(I> J)-DDPC( I,L)*AKK(K1*00PC<J»U 

L 

47 

40 

CONTINUE 

L 

48 


DO 50 K=1,N 

l 

49 


X(I1=X(I l+CDDPC (I ,K1*W<K) *BXCK1+EEYTH< I#K 1 *RT ( K 1 *BXA ( K» 1/386.4 

L 

50 

50 

Yll)*Y( I)+(DDPC(I»K1*W(K)*BY(K) *6 EYTH(JrKl*RT(KI*BYA(K) 1/386.4 

L 

51 

60 

Z(I>I)=Z(IfIl+(CRT(Il ♦0*10471 97)* *2 

L 

52 


DO 70 I* 1*NNCT 

L 

53 


HBXCI 1=0. 

L 

54 


MBY ( I 1*0. 

L 

55 


DO 70 J = l» NNCT 

L 

56 


NBX(I )=MBX(Il+ZtI#Jl*X( J) 

L 

57 

70 

MBY(I1=MBY(I1+Z(I»J)*Y(J1 

L 

58 


RETURN 

l 

59 


END 

L 

60 
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c 

c 

c 

c 
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SUBROUTINE TM0DE2 < T# OELTAT# SPEED, NK ) M 1 

***«#$*****************************************************♦****** M Z 
THIS SUBROUTINE CALCULATES THE MODAL COEFFICIENTS FOR TRANSIENT M 3 

RESPONSE ANALYSIS M A 

$*♦******$*******$**$**$*******$** + * *** 1 t : * I i : *** l C : ** , ( : ******¥**** 1 t‘*‘**** M 5 
REAL MBX#MB Y M 6 

REAL KXX#KXY#KYX#KY Y#MFX# MFY# MUX »MUY#KMX#KMY M 7 

COMMON /8LK1/ N#NB#NNL1N#NMB#NF#NU#NS#NB0W#ISTAB#IM0DE#ISKU#NNCT#N M 8 
1DFPT M 9 

COMMON /BLK2/ I SKI P# NSTEP# NC YCLE# N ITP#NINT#NPLOT# NQRB IT# NTI ME# NSPE M 10 
1E0# NINC#N0PT#NT M 11 

COMMON /BLK3/ CRT ( 10 ) # LLBD ( 10 ) # LLNB < 5 J > LLNMB ( 9 ) # LLSKUO I # LLNTtlO ) # M 12 
1LLUF(10)#LLFF(10)#LLUT(10) M 13 

COMMON /BLK5/ UX(10)#UY<10 )# FX (10 )#FY( 10) ,FSK(10)#PSK (10) M 14 

COMMON /BLK6/ BOW (100 ) # PGOWC 100) # XIOC C 100 J # YI DC (100 ) # VXIDC ( 100) # VY M 15 
1IDC(100),BXA(100)#BYA<100) H 16 

COMMON /BLK7/ CMX{ 10# 10) # KMX ( 10# 10 I # EMX < 10# 10) #C MY< 10# 10) #KHY (10# 1 M 17 
10) # EMY ( 10# 10 ) M 18 

COMMON /BLK8/ HFX { 10 ) # MFY ( 10 ) #MUX <10 ) # MUY (10 )# MB X (10 ) # MBY C 10) M 19 

COMMON /BLK9/ DDPCI 10# 100) , EEYTH< 10# 100) M 20 

COMMON /BLK11/ DOX ( 10# 10) # DOY (10# 10) » EOX( 10#10 ) #EQY ( 10# 10 ) M 21 

COMMON /BLK15/ RP C 100) #RT( 100) H 22 

COMMON /BLK16/ SPEED2# ANGSP# ANGACL#FSPEED H 23 

COMMON /BLK18/ AKKC10) M 24 

COMMON /BLK21/ OMX (10,- 10 ) # DMY ( 10# 10) M 25 

COMMON /BLK29/ PASP M 26 

PI=3. 14159 M 27 

ANGSP=SP£ED*PI/30. M 28 

DO 10 I=1#NNCT M 29 

MUX ( I ) =0« M 30 

MUY ( I )=0» M 31 

HFX ( I ) =0. H 32 

MFY ( I ) = 0. M 33 

IF (NU.EQ.O) 60 TO 40 M 34 

DO 30 1=1# NU M 35 

JsLLUFCI) M 36 

PHI=ATAN2 CUY { I ) #UX { I ) ) M 37 

OMT=ANGSP*T+PHI M 38 
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IF (NK.EG.G) DMT =P ASP+PHI H 39 

TME=(UX(I)*UX(I)+UY(I )*UY ( I ) J++0.5 H 40 

0Q 20 K*l»fcNCT H 41 

MUX (K)=HUX{K)+tANGACL*SIN(DMT)+ANGSP*ANGSP+CQS( OMT ) ) +TME *DDPC ( K, J J M 42 

20 MUY ( K ) = MUY < K ) + ( ANGSP + ANG S P*S IN COhT I-ANGAC L*C OS ( OMT ) )*THE*DDPCCK#J) M 43 

30 CONTINUE M 44 

4C IF (NS.EG.O) GO TO 60 M 45 

TIME-T M 46 

DO 50 1*1, NS M 47 

K K = L L SK ( I ) M 48 

CAN=ANGSP*TIME+PSK( I ) Z57.29578 H 49 

IF INK.EQ.O) CAN*PASP+PSK(I)/57,29578 H 50 

DO 50 J*1,MJCT M 51 

HUXI JJ-HUXC J)+(ANGSP*ANGSP+COS(CAN) + ANGACL*SINCCANn*FSKUI*{RP<KK M 52 

1 } -RT (KK) )*E£YTH(J,KK) /386« 4 M 53 

50 F'UY<J>=MUY{J)+(AN&SP*ANGSP*SIN(CAN)-ANGACL*C05tCANM*F5K(I)< ! (RP(KK M 54 

l)-RT(KK))*EEYTH(J,KK)/366.4 H 55 

6C IF (NBOW.EC.O) GO TO 80 M 56 

DO 70 I *1, NNCT H 57 

THAG*(MBYC1 )**2+MBX < I) **Z ) **0.5 H 58 

ANG=ATAN2 (MBY ( I ),MBX ( I ) ) M 59 

TANG=ANG+T*ANGSP H 60 

IF (NK.EQ.O) T ANG = P AS P+ ANG M 61 

tiUX(I)*KUX< I)+TMAG*COS(TANG) M 62 

70 MUYCI )*KUY(I ) +TMAG+S IN CTANG) M 63 

80 CONTINUE M 64 

IF (NK.EQ.l) GO TO 100 M 65 

DO 90 K-1,NNCT M 66 

DO 90 L=l, NNCT H 67 

EKX ( K, L 1 - £ G X ( K, L ) M 68 

EMY(K,L) s EOY(K,L) M 69 

D MX ( K , L ) = D 0 X { K, L ) H 70 

DMY ( K, L ) = DOY { K, l ) M 71 

DO 90 J*l, h M 72 

EMX(K,LI-EMX{K,L ) +0. 5*ANGACL *R P t J ) *EE YTH( K, J ) +EEYTH ( L, J ) / 386. 4 M 73 

EMY <K,L) = £MY (K,L}-C. 5*ANGACL*RP U ) *EE YTH ( K, J ) +EEYTH l L , J » /386. 4 M 74 

DMX(K,U»DMX(K,U + ANGSP*RPC JI+EEYTHCK, J) *EE YTH < L, J ) /386. 4 K 75 

90 DMY(K,L)=DMY(K»L}-ANG$P*RP(J)*EEYTH(K,JI*£EYTH{L,JI/386.4 M 76 


N1 

"vl 



100 


: t jr • 



SPEED=SPEED+30.*ANGACL*DELTAT t PI 

CONTINUE 

RETURN 

END 


M 77 
K 78 
H 79 
M 80- 



j 
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SUBROUTINE TACCEL N 1 

C ****************************************+****************#******** 14 g 

C THIS SUBROUTINE CALCULATES THE MODAL ACCELERATION BY SOLVING N 3 

C THE MOOAL ECUATIONS OF MOTION N <t 

C *********************+jM****************++************************ n 5 

REAL KXX#KXY,KYX»KYY# MF X, MF Y# MUX# MUY, KMX# KMY N 6 

COMMON /BLK1/ N#NB# NNLIN, NMB # NF #NU# NS# NBOW# ISTAB# IMODE# ISKU#NNCT#N N 7 
1UFPT N 8 

COMMON /BLK3 / CRT < 10 ) # LL 6 D ( 10 ) # LL NB C 5 ) , LLNMB < 9 ) # LLS K( 10 ) , LLNTCIO ) # N 9 
ILLUF(10)#LLFF<10)#LLUT<10) N 10 

COMMON /BLK7/ CMX { 10 j 10 ) #KMX ( 10, 10 ) * EM X ( 10 # 10 ) # CMY < 10# 10) # KMY( 10# 1 N 11 
1C)#EMY<10, 10) N 12 

COMMON /BLK 6 / MFXi 10 ) # MFY < 10 ) # MUX ( 10 ) * MUY ( 10 ) #MBX (10 ) #M BY ( 10 ) H 13 

COMMON /BLK9/ DDPC ( 10# 100 ) # EEYTH ( 10# 100) N U 

COMMON /BLK20/ A1 < 2# 10) # A2 (2# 10 I # A3< 2# 10 ) # B1 ( 2# 10 I # B2 C 2# 10 > # B3 ( Zt 1 N 15 
10) N 16 

COMMON /BLK2 1/ DMX< 10# 10 » . DMY (10# 10 J N 17 

IF (NNLIN. EC. 0) GO TO 10 N 18 

CALL BNF N 19 

10 CONTINUE N 20 

DO 30 I*1#NNCT N 21 

A1(1#I)=MFX(I)+MUX( I)-(CRT(I)*0.10471975)**2*A3(1#I ) N 22 

BUI# I)=MFY(I)+MUY(I)-(CRT(1)*0.10471975)**2*B3(1# I) N 23 

DO 20 J=1#NNCT N 2A 

A1(1#I)=A1(1#I)--CMX(I»J)*A2( 1# J )-KMX ( I # J ) *A3 ( 1# J )—DMX( I#J)*82(1»J> N 25 

l-EMXU, J)*B3(1#J) N 26 

20 Bl ( 1# I ) =B 1( 1# I ) “CMY ( I# J )*B2 ( 1# J )-KMY( I # J ) *B3 ( 1# J )-DMY (I#J)*A2(1#J) N 27 

1-EMY ( 1# J) *A3 ( 1# J ) N ZB 

30 CONTINUE N 29 

RETURN N 30 

END N 31- 


i 
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SUBROUTINE TINTG ( NNC T » DEL TAT ) 0 

*************** **** ****** ************************** *************** 0 

THIS SUBROUTINE INTEGRATES THE NODAL ACCELERATION INTO VELOCITY 0 
AND DISPLACEMENT BY MODIFIED EULER METHOD 0 

***********$**********************¥******************************* 0 
COMMON /BLK2/ ISKIP> NSTEP*NC YCLE*NITP>N INT>NPLOT>NORBIT»NTIME*NSPE 0 
lEO,NINCjN0PT#NT 0 

COMMON /BLK20/ A 1< 2, 1 0 ) , A2 (2, 10 ) # A3 < 2» 10) # B1 < 2> 10 )> 62 <2>10) *B3< 2> 1 0 

10) o 

DC 10 1-1* NNC T 0 

A2(2* I)=A2(1* 1)+DELTAT*A1<T* I) 0 

B2 (2* I ) *B2I 1* I ) +DELTAT*B1 ( 1* I ) 0 

A3 (2* I )®A3( 1* I ) +DELTAT*0 • 50* (A2(l*I)+A2(2»I)) 0 

10 B3(2* I) *B3 (1*1 )+DELTAT*0. 50*<B2(1»I )+B2(2»I)) 0 

DO 20 I=1»NNCT 0 

A1(1>I )=A1 (2*1 ) 0 

A2(l* I)= A2(2> I ) 0 

A3(l» I)=A3(2* I ) 0 

B1(1»I)=B1(2>I) D 

B2 11* I ) =B2 (2*1) 0 

20 8 3 ( 1* I ) -B3 (2* I ) 0 

RETURN 0 

END 0 


o r> r? o 
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SUBROUTINE TBETA (NNCT,QELTAT , BETA) P l 

*******************++******* ***************************** ********* P 2 

THTS SUBROUTINE INTEGRATES THE MODAL ACCELERATIONS INTO MODAL P 3 

VELOCITY AND DISPLACEMENT BY NEWMARK BETA METHOD P 4 

******************************************************* *********** p 5 

DIMENSION STORE ( 6 » 10 ) P 6 

COMMON /BLK20/ A1 ( 2 # 10 ) , A2 (2, 10 ) * A3 ( 2# 10) , B 1 1 2, 10 J * B2 < Zt 10 1 ,B3 ( 2# 1 P 7 

10) P 8 

DO 10 I =1 »NNCT P 9 

5TCRE(1,I)«A1<1,I) P 10 

STORE (2,I)=B1(1»1) P 11 

STQRE(3*i) s A2(l;I) P 12 

ST0fiEU,I)=B2(l,I) P 13 

STORE (5,I)*A3(1,I) P 1* 

10 ST0RE{6,I )-B 3 ( 1,1 ) P 15 

DO 20 I = l» NNCT P 16 

A2(l, I)=ST0RE(3/I )+DELTAT*STORE(l,I) P 17 

B2 (1, I)=ST0RE(4,I )+DELTAT*STQR£(2, I) P 18 

A3(1,I)=ST0RE<5,I)+.5*DELTAT*(ST0RE(3,I)+A2<1,I)) P 19 

20 B3(l,I)=STQRE<6*n + .5*DELTAT*(ST0RE(4,I> + B2{nn) P 20 

CALL TACCEL P 21 

DO 30 1*1, NNCT P 22 

A2(1,I)=ST0RE(3,I)+.5*DELTAT*<A1<1,I)+ST0RE(1,I)) P 23 

B2(l, I ) =STORE (4,1 )+.5*DELTAT*(Bl(l»I)+ST0RE(2, I) ) P 24 

A3( 1,1 1 -STORE (5,1 )+D ELT AT+STOR E ( 3, I ) + ( . 5-BET A ) +STOR E ( 1, I > *DELTAT*D P 25 

1ELTAT+BETA*DELTAT*DELTAT*A1<1, I) P 26 

B3(l,Ii=STORE(6,n + OELTAT*STORE(A,n + (.5-BETA)*STOREC2,n*DELTAT*D P 27 

1ELTAT+BETA*DELTAT*DELTAT*B1(1,I) P 28 

A3(2,I)*A3(1,I) P 29 

30 B3 (2, 1 ) *B3 (1,1) P 30 

RETURN P 31 

ENO P 32- 
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SUBROUTINE TINC Q 1 

******************************************+*********************♦* Q 2 

THIS SUBROUTINE TRANSFORMS THE ROTOR INITIAL CONDITIONS INTO Q 3 

MODAL INITIAL CONDITIONS OF VELOCITIES AND DISPLACEMENTS 0 A 

********** ****** *********************************** *************** Q 5 

DIMENSION XTHUOO), YTH(IOO), VXTH(IOO), VYTH(IOO) Q 6 

COMMON 78LK1/ N,NB ,NNL I N» NMB, NF, NU, NS# NBDW, I ST AB, TMODE, ISKU#NNCT,N Q 7 
1UFPT Q 8 

COMMON /BLK6/ B OW < 100 J , P BOW ( 100 ) , X IDC ( 100 ) , Y I DC < 100 ) , VXIDC 1 100 ), VY Q 9 
110C(100),BXA <10C),SYA(100) Q 10 

COMMON /BLK9/ DDPC < 10, 100 ), EEYTHI 10, 100) Q 11 

COMMON /BLK15/ RP (100 ),RT( 100) 0 12 

COMMON /BLK19/ DX( 100) ' 0 13 

CCMMON /BLK20/ A 1 ( 2, 10 ) , A2 < 2, 1 0 ) , A3 < 2, 10 ) , B1 C 2, 101 , B2 ( 2, 10 ) , B3 (2# 1 Q 14 
10) Q 15 

COMMON / B L K 22/ W(IOO) Q 16 

00 10 1=1,100 Q 17 

XIDC(I)=XIDC(I) /1000. Q 18 

YIDC(I)*YIDC(I)/10Q0# 0 19 

VXIDC (I)=VXIDC( I) /1000. 0 20 

10 VYIDCCI )=VYIDC ( I)/iOOO, Q 21 

TC=(XIDC(2)-XIDC(1))/DX<1) Q 22 

T D* ( Y IDC ( 2 )-Y IDC (1 ) ) /DX 11} 0 23 

T£ = (VXIDC ( 2 )— VXIDC ( 1 ) ) /’OX ( 1) Q 2 A 

T F= ( VYIDC ( 2 ) -VYIDC ( 1 ) ) /DX (1 ) Q 25 

XTHI1 ) =ATAN (TC ) Q 26 

YTH (1 )=ATAN ( TO) 0 27 

VXTHT1 ) =ATAN (Tfc ) 0 28 

VYTH(1)=ATAN( TF) Q 29 

TC = (XIDC (N)-XIDC(N-I ) )/DX(M-l) 0 30 

TD = ( Y IDC ( N J-YIDC (N-l ) ) /DX ( N-l ) ' Q 31 

TE=( VXIDC (N)-VXIDC(N-l) )/DX( N-l ) 0 32 

TF= { VYIDC ( N )— VY IDC ( N-l ) ) /OX ( N-l ) Q 33 

YTH(N)=ATAN(TD) Q 34 

XTH(N)=ATAN(TC) Q 35 

VXTH(N) =ATAN(TE ) Q 36 

VYTH(N) =ATAN (TF ) 0 37 

N1=N-1 038 
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DO 20 1=2, N1 0 39 

TC=(XI0C(I+1)-XI0C(I-1))/(DXCI-1)+0X(I)) 0 AO 

TD=(Y1DC< l+l)-YlDC(I-l))/(DX(I-l)+DXm ) Q A1 

TE = (VXIDC(I+l>-VXlDC(I-l))/(DXn-l)*OX(n ) 0 A2 

TF=(VYIDG(I + l)-VYIOC(I-in/(DXCI-l) + DX(in 0 A3 

XTH ( I ) = ATAN (TC) Q AA 

YTH ( I ) =ATAN ( TD) 0 A5 

VXTH(I)=ATAN(TE) Q A6 

V YTH ( I )=ATAN(TF ) Q A 7 

20 CONTINUE Q A0 

DO 30 1= 1,NNC T 0 A9 

A3 M, I ) =0. Q 50 

B3(l, I )=0, Q 51 

A2( 1, 1 ) =0. Q 52 

62(1, I )=0* G 53 

00 30 J = 1,N Q 5 A 

A3(l,I) = A3Cl,n + CD0PC(I, J)*W* J ) *X l DC ( J ) +EE YTH ( I, J ) *RT < J ) *XTH{ J»»/3 0 55 

166. A Q 56 

e3<l,n=B3U,I>+<DDPC<I,JM‘W{Ji*YIDCtJ»+EEYTH(I,J)*RT(J)*YTH«J))/3 Q 57 

166. A Q 58 

A2 (1, I) =A2( 1,1 ) + (DO PC ( I , J ) *W ( J )*VXIDC (J)+EEYTH(I,J)*RT(J) *VXTH( J )l Q 59 

1/366. A Q 60 

30 B2(l,I)=B2(l,I)+(D0PC(I,J)*W(J)*VYIDC(Jl+EEYTHU,J»*RTCJ)*VYTHCJn 0 61 

1/386. A Q 62 

RETURN G 63 

END Q 6 A- 



. ...-a 
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SUBROUTINE TSTORE (NNCT , 1CCUNT, T IME ) R 1 

* *********** **** *** ** *** **** *** ***** ***********+**+****+******+*** r 2 

THIS SUBROUTINE STORES THE MODAL DISPLACEMENTS FOR EACH TIME R 3 

STEP INTO TAPE 7 R A 

***££**4$*** ********* ********************************************* R 5 

COMMON /BLK20/ A 1 ( 2, 10 J * A 2 ( 2, 10 ) > A3 ( 2 , 10 ) , B 1 ( 2, 10 ) , B2 ( 2, 10 ) , B3 <2* I R 6 

10 ) R 7 

DO 10 1=1, NNCT R 6 

WRITE (7 ) A3 ( l, I ) , B 3 ( 1, I ) R 9 

10 CONTINUE R 10 

RETURN R 11 

END R 12- 


K> 
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SUBROUTINE 1D13RL < F T I M £ » SI 

*=! *«***»$ ** if ¥***+$* * t + ************************** ****+******+****** S Z 

THIS SUBROUTINE CALCULATES THE TRANSIENT RESPONSE FROM THE MODAL S 3 

DISPLACEMENTS STORED IN TAPE 7 AND OUTPUT IT IN TABULAR FORM OR S 4 

]N CALCLMP PLOTS S 5 

4 *.* **£ ****** 4 ***** ********** ************** ************************ $ 6 

COMMON / BLK1 / N* NB, NNL I N* NMB, NF, NU* NS* NBOW* I STAB* IMODE# ISKU*NNCT*N S 7 

1CFPT SB 

COMMON /BLK2/ I SKIP# NSTE P » NC YCLE* N ITP* N INT *NPLOT # NORB I T*NTIME* NSPE S 9 

lfcO* NINC# OORT *NT S 10 

COMMON 7 ti L K 3 / CRT ( 10 ) * LLBD C 10) , LLNB C 5 ) * LLNMB 49 1 * LLSK C 10>* LLNTI 101* S 11 

1 LLOh ( 10)* LL PR (101# LLUT ( 10) S 12 

COMMON 7ULK9/ DDPC (10* 100 I #EEYTH( 10* 100) S 13 

COMMON /8LK1 6/ SPEFD2* ANGSP* ANGACL#F SPEED S 14 

CLMHOM SXC4001) *SY(4001 ) S 15 

IF (NPLGT.NE.G) GO TO 10 S 16 

CALL CALCOMP (10) S 17 

1C CONTINUE S IB 

NLPT=NSTEP*NC YCLE+1 S 19 

DO 100 1=1, NT S 20 

REWIND 7 S 21 

1 J = LL'NT( 1 ) S 22 

SPEED=SPtED2 S 23 

STEP =N STEP S 24 

M C C = 1 S 25 

NPP=hCC*NSTEP S 26 

DELTAT=bO. A ( SPE ED + STE P ) S 27 

T IME= C. S 26 

WRITE (3,120) ID S 29 

XM AX=0. S 30 

Y M A X = 0 . S 31 

I JK =C S 32 

NCLM= 1 S 33 

DO t>0 J= 1* NL P T S 34 

X-C. S 35 

Y=0* S 36 

CO 20 K=1*NNCT S 37 

READ (7) AX, BY S 38 
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X = X + AX*DDPC(K,I0)+100(J. S 39 

2 C Y = Y+BY + liOPC(K, 1DJ+1000. S AO 

IP ( ABS (X ) .Li=. XMAX) GC TO 30 S 41 

X M AX = A8S ( X ) S 42 

3 U IP ( A G $ ( Y ) . L fc . Y M A X ) GC TO 40 S 43 

YKAX=ABS(Y) . S 44 

AG IF (J.NE.NCCM) CO TO 50 S 45 

I JK= I JK+1 S 46 

AS = S CR T( X*X + Y*Y ) S 47 

P=PANG(X»Y) S 48 

LRITE (3,130) J, T JME, X,Y,AB»P* SPEED S 49 

NCCH*IJK*NITP+1 S 50 

50 SX C J J =X S 51 

SY ( J ) * Y S 52 

TIME = TIf'E+OElTAT S 53 

SPEED=SPLED+DELTAT*ANGACL*9. 54929 S 54 

IF (K.NE.NPP) GO TO 60 S 55 

NCC=NCC+1 S 56 

NPP=NCC*N$TEP S 57 

DELTAT=60./ (SPEED+STEP) S 58 

60 CONTINUE $ 59 

IP (NORBIT.kO.O) GO TO 70 S 60 

CALL 03PLDT (XMAX,YMAX,NLPT*ID*NSTEP) S 61 

70 IF (NTIfifc.EQ.O) GO TO 80 S 62 

CALL TMPLGT ( XMAX , YMA X, NLPT* ID*FTIME#NSTEP ) S 63 

80 IF (NSPEED.LO.O) GO TO 90 S 64 

CALL SOPLOT S 65 

9G CONTINUE S 66 

ICO CONTINUE . S 67 

IF (NPLOT.NE.O) GO TO 110 S 68 

CALL ENCPLT S 69 

110 CONTINUE S 70 

RETURN S 71 

C S 72 

120 FORMAT ( 1HI,I0X*#MG0AL TRANSIENT ANALYSIS AT STATION NO.#* 13*// # 10 S 73 

1X#?STEP NO . 5X» #TI NE (S ECONDS ) #, 5X* #X-M ILS#*10X*#Y-HILS#*8X*#ABS-0 S 74 

21SPL*,6X ,#PHASL ANG L E x , 6X> #S PEED ( RPH) * > // ) S 75 

13C FORMAT ( 1 2 X , I A, 6 X , F 10 . 5, t>X*F10.5*6X, F10 . 5, 6X, F 10. 5* 6X*F10*2*6X* F10 S 76 








SUBROUTINE LBPLGT ( XM AX » YMAX # NIPT # ID »NS TEP ) T 1 

C 4 $**>t4 + ***4*** *+***$$****************************+******+*♦*+***** T 2 

C 1H1S SUbRUUlINE PLOTS THE TRANSIENT ORBITS IN X AND Y DIRECTIONS T 3 

C $ ^♦^V*********************************************************** T A 

C Oh NGN / BLK 2 6 / AL1 1 8 ) # AL2 ( 8 ) # AL3 ( 8 > T 5 

COMMON SXI4C01) # S Y ( A 00 1 > , T 6 

CALL PLOT tl5.#5.#-3) T 7 

CALL SYMBOL ( -3 .0 » -4 . OO# . 1 05# AL 1> 0. 0# BO ) T 8 

CALL SYMBOL ( -3 . 0 , -A . 25# . 105# A L2# 0 .0 » 80 l T 9 

CALL SYMBOL (- 3 . G, -4 . 50# .105# AL 3, 0. 0# BO ) T 10 

C= AHAX 1 ( XNAX# YMAX 1 T 11 

G = 1 . T 12 

IF IC.LT.].) G = 1 0 • T 13 

B-C+G/3.+1. T 14 

0=AINT(B)/G T 15 

t=-3.*D T 16 

CALL AXIS (-3.0#-3. 0# I1HY-0IR( MILS )»11»6.0»90.0#E#D ) T 17 

CALL AXIS f-3.0#-3,G# 1 1HX-DIR (N ILS > # -1 1#6 .0# 0 .0# E# D » T 18 

CALL PLOT (3.# -3.# 3) T 19 

CALL PLOT ( 3 • # 3 . # 2 ) T 20 

CALL PLOT (-3. #3. #2) T 21 

CALL SYMBOL ( 1 . 0, 3 . 2 5 # . 14 , 1 1HST AT ION N0.#0.0#ll) T 22 

CALL NUMB k K ( 2 . 2 # 3 . 2 5 # . 14 » 10 # 0 .0# 2HI 3 ) T 23 

KK= 1 T 24 

JJ-0 T 25 

DO 30 J = l# NLPT T 26 

A = SXU) T 27 

Y=SYtJ) T 28 

X = X / D T 29 

Y=Y/D T 30 

IF (J.ME.l) GL TB 10 T 31 

CALL PLOT ( X # Y # 3 ) T 32 

10 CALL PLCT (X#Y,2) T 33 

IF (J.tU.KK) GSj TO 20 T 34 

CU TO 30 T 35 

2G CALL SYMBOL ( X, Y# . 0F7 5 » 11# 0. #-U T 36 

CALL PLOT l X # Y # 3 ) T 37 

*J=JJ+1 T 38 


ro 

oo 

oo 



J 



Krt=JJ*N$TEP+l T 39 


KK = J J^MST EP + 1 T 39 

3C CONTINUE T 40 

CALL NEkBLQN T 41 

RETURN T 42 

END T 43- 




o n o 


5 Ub R t 0 T I M t TKKLT ( X MAX * YMAX,NLPT* 1 0, FT IKE, NSTEP ) 


U 

1 

* 4********* + *** ***** ***********:**** + *** ***** + * + *************♦***** 

U 

2 

THIS SUBkOUTINE PLOTS TRANSIENT RESPONSE AMPLITUDES VS REAL 

TIME 

u 

3 

**^*£**#**44* ***** ************ ******* ********** *********** **♦♦♦**♦ 

u 

4 

t CM MON / 1 LK1 6 / SPEED2* ANGSP, ANGACL* FSPEEO 


u 

5 

COMMON /BLK28/ AL 1 { P ) » AL2 ( 6) * AL3 ( 8 ) 


u 

6 

COMMON SX(40CL)*SY { 40 01 ) 


u 

7 

C=AMAX1 < XMAX* YMAX) 


u 

e 

G= 1 . 


u 

9 

IP (C.LT.l.) G = 10. 


u 

10 

B°C*G/2.+l. 


u 

li 

0 = A I N T { 8 } / G 


u 

12 

CC=-2. *0 


u 

13 

CALL PLOT <5,*2.*~ 3) 


u 

14 

E=FTIML*lGOG,/fc.+l. 


u 

15 

P=AINT(E) /100G. 


u 

16 

CALL AXIS (C.C*G.0*15HTIKE IN SE CONDS *- 15 * 8 . 0* 0. 0, 0 .0* F 1 


u 

17 

CALL AXIS (C.G* G.0,23HR0T0R DISPLACEMENT-MILS* 23, A . *90.*CC» 

D) 

u 

18 

CALL PLOT (0.,2.0*3> 


u 

19 

CALL PLOT (6.0,2. 0*2) 


u 

20 

CALL SYMBOL ( 0 . C* -1 . 1 * . 105* AL1* 0. 0* 80 ) 


u 

21 

CALL SYMBOL ( 0.0, -1 . 3 , . 105 *AL2, 0. 0,80) 


u 

22 

CALL SYMBOL (G.G*-1.5>.105*AL 3 *0.0*80) 


u 

23 

CALL SYMBOL (3.5*4,0» .14*11HSTATI0N N0.*0.*11) 


u 

24 

CALL NUMBER (4. 7*4.0* . 14*10*0.0* 2H 13) 


u 

25 

CALL SYMBOL ( 6 . C* 3 . b * C. 105* I2HX* *Y=*0.,12) 


u 

26 

CALL SYMBOL (6.4* 3.9* G. 105* 11*0. *-l) 


u 

27 

CALL SYMBOL ( 7 . 3* 3 . 9* C . 105* 2 *0 . 1 ) 

. 

u 

28 

M = C 


u 

29 

CONTINUE 


u 

30 

o J = 0 


u 

31 

K K = 1 


u 

32 

T I M E = 0 . 


u 

33 

SPtE0=SPtr-02 


u 

34 

STEP* NSTEP 


u 

35 

DtLTAT = G. 


u 

36 

DO 5C I-1*NLPT 


u 

37 

1 JK£*TIM£+DE LTAT 


u 

38 


290 


1 



T=T IME 

$Pc£D*SPECD + DEL TAT* ANGACL+9 .54929 
X=SX(I) 

T -T /F 
2=X/0+2. 

N = 1 1 

IF {M.tC.CJ GO TO 20 
Y = S Y ( I ) 

Z = Y/0+2. 

N = 2 

20 CONTINUE 

IF (I.NE.l) GO TO 30 
CALL PLOT (T,Z>3) 

30 CALL PLOT CT»Z#2 ) 

IF (I.EO.KK) GO TO AO 
GO TO 50 

AO CALL SYNBOL (T,Zi .07,N»0.#-1) 

DEL TAT -60./ ( SPEEO+STEPI 
JJ=JJ+1 
KK=JJ*NSTEP+1 
50 CONTINUE 

IF (N.EQ.l) GO TO 60 

M-l 

GO TO 10 
OC CONTINUE 

CALL NEk BLOK 

RETURN 

END 



U 39 
U 40 
U 41 
U 42 
U 43 
U 44 
U 45 
U 46 
U 47 
U 48 
U 49 
U 50 
U 51 
If 52 
U 53 
U 54 
U 55 
U 56 
U 57 
U 58 
U 59 
U 60 
U 61 
U 62 
U 63 
0 64 

U 65 
U 66- 



I 

1 
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SUBROUTINE S DPLGT V 1 

C ++****+********++****#*******+*+***************+****+***#**♦*#**** V 2 

C TO RESERVE FOR FUTURE DISPLACEMENT-SPEED PLOTS V 3 

C 4 fc**************************************************************** V A 

RETURN V 5 

END V 6- 
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SUBROUTINE bNF 

******* ** *** *************************+*************#********#***** 
THIS SUBP.UUTINE CALCULATES THE NONLINEAR BEARING FORCES FOR EACH 
TIME STEP . THE BEARING USED ARE ASSUMED TO BE SHORT JOURNAL 
BEARING 1BG DEG. CAUITATED FILM OR WITH 360. DEG FLUID FILM. 

THIS CAN ALSO BE USED TO APPROXIMATE STRAIGHT SEAL FORCES* 
********************************+******************************+*+ 
REAL LEN 
REAL KFX*MFY 
REAL KXXrKYV 

COMMON / BLK1 / N*NB, NN L I N, NMB * NF,NU*NS* NBDW, ISTAB* IMQDE# ISKU* NNCT* N 
1UEPT 

COMMON /BLK3/ CRT ( 1 G) * LLBDIIO) * LLNBC 51 t LLNHB C9»# LLSK(IO) *LLNT<10 ), 
1LL0F(I0)*LLFF(1G),LLUT<101 

COMMON /BLK9 / K XX (10 ) *K XY (10», KYX ( 101 * KYY ( 101 *C XX(10)*CXY< 10)*CYX ( 
11U)*CYY(1{)I*SLNK8(9*4,9),CLNMB( 9*4*9) 

COMMON /8LKt / MFX ( 10 ) ,MF Y ( 101 , MOXC 10 >*MUY UO ) *MBX ( 10) ,WBY( 10) 
COMMON /BLK9/ DDPC (10^ 100)*EEYTH(10*100) 

COMMON /BLK16/ SPEE02* ANGSP* ANGACL* FSPEED 
COMMON /BLK18/ AKK(IG) 

COMMON /BLK20/ Al( 2* 10>*AZ(2* 1C)*A3(2*10)*B1 (2*10) *B2( 2*10) *B3< 2# 1 


COMMON /BLK9/ DDPC (10*100 
C OMMDM / B LK 1 6 7 S PE E 0 2 * A NG 
COMMON /BLK18/ AKK(IG) 
COMMON /8LK20/ A1(2*10)*A 
10 ) 

COMMON /8LK35/ WMY(10)*VI 
DJ 10 I=1*NNCT 
M FX { I ) = 0 • 

MFY (I ) -0 • 

DO 60 1 = 1* NNLIN 
L=LLNB( 1 J 
>=0. 

Y = 0. 

VX = 0. 

V Y =0 • 

CO 20 J=1*NNCT 
X= X+A3 ( 1 * J ) + DGPC ( J * L ) 
Y=Y*B3 <1* J )*ODPC( J*L)o a 
VfX=VX+A2 (1> J )*DDPC ( 

VY = VY + B2(1*J)*DDPC( J*?£f)G 
CONTINUE QZ 

££ 
c £ 

go 

s& 

tJ 


V.MY( 10)*VIS (5)*R(5)*LEN( 5) *C ( 51* NLB ( 5 I 


— " - - - • “ • '• " "" ■ ...... ... • .• -•’™ i = 4! - 


D=X*X+Y*Y W 39 

SD=0. W 40 

D i: U = 0 • W 41 

S D = S OR T ( D ) W 42 

L=X*VX+Y*VY W 43 

0U=C <I)+SD*ANGSP W 44 

DEU=0/0U " W 45 

eu= sc/cm W 46 

IF (EU.GT.l . J CU=.99 W 47 

PHIDOT* (X*VY~Y*VX) /(ANGSP+DI W 48 

Pi-3.14159 W 49 

TEST =(1.-2.* PHI DOT) W 50 

SIGN=1 • W 51 

S IGN1=1. W 52 

IF (TEST. LT. 0.1 SIGN— 1. W 53 

IF (DEU.LT.O.) SIGN!*— 1. W 54 

CS-EU*-A8S'(TEST)/SQRT{ EU*EU*TEST**2+4**DEU*DEU) U 55 

AS* ( 1 • +E U ) / ( 1, — EU ) W 56 

IF (CS.EQ.O.) GO TO 30 W 57 

U=SCRT( { l.-CS)/ (l.+CS) ) W 58 

GO TO 40 W 59 

30 U = 0. W 60 

40 CONTINUE W 61 

TI1*SIGN*4.*EU*CS**3/ {( l.-EU*EU*CS*CS)**21 W 62 

C1M1 .-EU+EU) W 63 

C2=(3.-5 • *A$*AS ) W 64 

C3 = C 5 .-3 »*AS*AS ) W 65 

TA* ATAN(U*(AS*AS-1. )/ (AS*(1.+U*U> ) ) U 66 

C4=<1 .+2.*EU*EU) W 67 

C0N*PI*C4/ <C1**2.5> W 68 

CGN2 = (C 2*U*li + C3* AS *AS ) / ( U*U+AS*AS )**2 + (C2+C 3*AS*AS*U*U) / 1 1*+AS*AS* W 69 

1U*U)**2 W 70 

TI2=CUN+SIGNl*(2.*C4*TA/{Cl**2.5)-U*CaN2/tCl**2n W 71 

CON* 2 • VC 1**1 * 5 W 72 

T I3=C0N* ( PI/2 . + S IGN1=MTA-AS*U*(U*U-AS*AS) / I U*U+ AS+AS ) **2-AS*U*ll*- W 73 

1 AS*AS*U* 0 )/ (l.+AS*A$*U*U)**2n W 74 

S 06= VIS ( I )* ANGSP*2 *4R C I )*LEN( 11**3 /( 8,*C ( I ) *C (II ) W 75 

F 1* SON* (eU*TEST*T tl+2* *DEU*TI2) W 76 



F2=SLt,*(tLKTfcbT*ri3+2.*DEU*TIl) 

f X--( P1*X+F2*Y)/SD 

F Y= (F2*X-Fi*Y) /SO 

WRIlt 1 3 j 7 G ) F1#F2»FX>FY>X,Y 

I U - h L 8 1 1 j 

f X = FX + KXX( 1DHX + AKM IG)*X 

FY*rY+KYYll0)*Y+AKK(10)*Y 

CD 5C K = 1> NNC 1 

{'. F X ( M - M F X { K ) + f X *0 D P C ( K # L ) 

| SG FiF Y (K J =i v iFY ( K ) + F Y + DDPC t K» L > 

[ 60 CONTINUE 

i he TUR N 

I C ■ 

f 70 FORMAT (iX#tGl!>.5) 

1 END 




W 77 
U 78 
W 79 
W 80 
U 81 
W 82 
W 83 
U 84 
W 85 
W 86 
W 87 
U 88 
W 89 
W 90 
U 91- 
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INPUT INSTRUCTIONS FOR PROGRAM MODAL 2 

1. Read 3 comment cards (1 to 80 columns) 

2. N, NB, NNLIN, NMB, NF, NU, NS, NBOM, I STAB, IMODE, ISKU, NUFPT 
(1215) 

N ■ No. of mass stations (max. 100) 

NB - No. of regular linear bearings (max. 10) 

NNLIN » No. of nonlinear bearings (max. 5) 

NMB * No. of coment resisting bearings (32 coeff . ) (e.g;) 

balance piston) (max. 3) 

NF « No. of external force (max. 10) 

NU ■ No. of unbalance (max. 10) 

NS ■ No. of skewed disc (max. 10) 

NBOW » 1 bow shaft (Input shaft bow data) 

• 0 no shaft bow 
ISTAB - 1 

= 0 
IMODE - 0 

* 1 

ISKU » 0 
- 1 

NUFPT =* 1 

3. ISKIP, NSTEP, NCYCLE, NITP, NINT, NPL0T, N0RBIT, NTIME, NSPEED, 
NINC, N0PT, NT (1215) 


■ iitX ■!.& AWffWU-’ii »■ ■ 


! 

] 


NCYCLE - 20 


NITP ■ No. of steps per printout 

HINT ■ 1 Newark - 0 intergration (with iteration) 

■ 2 Euler Integration 
NPLOT - 0 plots of transient desired 
« 1 no plots 
NORBIT - 1 
NTIME - 1 
NSPEED • 0 

NINC * 0 input initial condition 

1 initial conditions from steady state orbit with small 
perturbation 

NOPT *0 
NT - 1 

LLBD (J), J = 1, NB (1015) Skip (4) and (5) if NB = 0 Bearing 
location station numbers . 

NSPD (15) 

NSPD » number of speed cases of transient analysis 
SSPEED (I), I ml; NSPD (8G10.3) (max. 8) 

til 

SSPEED (I) ■ Speed for the I— transient case 
((KKxx (I, J), KKxy (I, J) , KKyx (I, J), KKyy (I, J) f KKxx (I, J) , 
KCxy (I, J), KCyx (I, J), KCyy (I, J) , J = 1, NB) 1=1, NSPD) 

8 bearing stiffness and damping coefficients in NSPD sets of NB 


cards . 
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8. ((LLNB (I, J), INLB (I, J) , BVIS (I, J), BANR (I, J) , BANL (I, J) , 
BAN (I, J), J - 1, NNLIN) I - 1, NSPD> 

(2110, 4610.3) 

(Skip if NNLIN - 0) 

LLNB (I, J) ■ station no. of Jth nonlinear bearings 

INLB (I, J) ■ bearing no. of Jth nonlinear bearings 

BVIS (I, J) » viscosity of lubricant (lb/in 2 ) 

BANR (I, J) “ radius of Jth bearing (in) 

BANL (I, J) » length of Jth bearing (in) 

BANC (I, J) ■ clearance of Jth bearing (in) 

*A linear bearing station must be assigned to a nonlinear bearing 

/ 

even with zero linear stiffness and damping. 

9. LLNMB (J), J - 1, NMB (315) (skip 7 and 8 if NMB - 0 

LLNMB (J) = station no. of the Jth moment resisting bearing 
*Only one set for all speed cases. 

10. NMB sets of card, each set 4 cards (8G10.3) 


*w 

Bk x6> 

B V 

B v 

Be , 

XX 

Bc xe- 

Be , 
xy 

Bc x* 

B1 w 

Bk ee> 

B V 

*V 

Bc 0x* 

Bc ee> 

Bc 0y * 

Bc b* 

Bk , 

Bk 

Bk , 

Bk ,i.» 

Be , 

Be 

Be , 

Be . 

yx 

y Q 

yy 

yty 

yx 

y® 

yy 

y^ 

B V 

%0* 

Bk. , 

4<y 

Bk ^» 

Be , , 

B Sj,e’ 

Bc V 

Be. . 


These are the 32 bearing stiffness and damping coefficients for 
a moment resisting bearing. The first subscript represents the 
direction of force, and the second subscript represents displace- 




5‘f- 


ment. 


x - x-direction displacement 

6 - rotation at positive y-axis (right-hand rule) 

4 

y ■ y-directlon displacement 

- rotation at negative x-sxle (right-hand rule) 

H • NGYR, E, SPEED1, SPEED ANGACL, FSPBED, BETA (15, 5x, 5GL0.3) 
NGYR - 1 calculation shaft gyroscoplcs 
• 0 no. shaft gyroscoplcs 

-6 

E ■ Section Young's Moducus x 10 (E ■ 30. for steel) 
SPEED1 Rotor operating speed (RPM) (use for gyroscopic 
calculation in damped modes) 

SPEED2 ■ use as initial speed for transient 
ANGACL - rad/sec 2 (use in transient cal.) 

TSPEED » 0 

BETA ■ Beta parameter used for Nevmarfc beta integration 
(usually * 1/6) 

12. EXTW(J), DX(J) , DEXT(J) t DINT(J), RP(J), RT(J), ZM6(J), R0(J), 

J - 1, N 

(N cards) (8(F10.3>) 

EXTW(J) ■ external weights at J-mass station (lb) 

DX(J) “ length of Jth element (in) 

DEXT(J) - external diameter of Jth element (in) 

DINT (J) - internal diameter of Jth element (in) 

RP(J) = polar moment of inertia at Jth station (lb-in 2 ) 

RT( j) = transverse moment of inertia at Jth station (lb-in 2 ) 
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1 

i 


I ■ 


t 

j 


EM6(J) * Toting' s modules o£ Jth element x 10 * (*E lb/in 2 
if set to 2 ero) 

R0(J) ■ density of Jth element (■ 0.283 lb/in 3 if set to 2 ero) 

* 

13. LLFF(J) , FX(J), FY(J), J - 1, NF (15, 5x, 2G10.3) NF cards, 
skip if NF » 0 

LLFF(J) " station no. of Jth external force 
FJC(J) ■ forces in x-direction (lb) 

FY(J) * forces in y-dlrection (lb) 

14. LLUF(J), UX(J), UY(J), J - 1, NU 

(15, 5x, 2G10.3) NU cards, skip if NU * 0 
LLUF(J) “ station no. of Jth unbalance 
UX(J) * unbalance at x-direction (os-in) 

UT(J) ■ unbalance at y-direction ( 02 -in) 

15. LLSK(J), FSK(J), PSK(J) , J - 1, NS 

(15, 5x, 2G10.3) NS cards, skip if NS - 0 
LLSK(J) ■ station no. of J th skewed disc 
FSK(J) = maximum skew of the disc (rad) (positive skew is 
opposite to positive 0‘ ) 

PSK(J) - angle between maximum skew to the x-axis (rad) 

16. LLNT(J), J « 1, NT (1015), (NT - 1) 

LLNT(J) = station which the transient results are used in 
frequency spectrum analysis 

17. BOW(J), PBOW(J), XIC(J) , YIC(J), VXIC(J), VYIC(J), J = 1, N 
(6G10.3) 
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BOW(J) ■ Jth station Initial bow (mils) (■ 0 if no bow) 

PBOW(J) ■ angle of bow to the positive x-axis (radV 
(■ 0 if no bow) 

XIC(J) - Jth station initial displacement (oils) 

YIC(J) - Jth station initial displacement at y-dlrectlon (mils) 
VX1G (J) » Jth station initial velocity at x-direction (mils/sec) 
VYIC(J) - Jth station initial velocity at y-direction (mils /sec) 
Iff. SPI, SPL, DSP (3610.3) 

SPI - initial speed (RPM) 

SPL » final speed (RPM) (for critical speed analysis) 

DSP - speed Increment (RPM) 

19. TITLEl, TITLE2 , TITLE3 

3 .TITLE cards for label in plots (1 to 80 columns) 


OJS POOR QUALITY 


C 

C. 

( 

c 

c 

C 

C 

c 

c 

c 

c 

c 

c 

c 


o 

g 

§ 


I 

-a 


S3 


PR UR AH MODE S ( INPUT, OUT PUT ,T APE1= I NPU T, TAPE3 =0UT PUT »TAPE7,TAPElO) A 1 
** *4.;. £*£«*$******«* **** *****************««**********-************** A 2 
THIS PROGRAM CALCULATES THE UNDAMPED CRITICAL SPEEDS ANO THEIR A 3 

C OR RES POND INC MODE SHAPES. A 4 

A A MX I MU. *1 HUM BE R OF EIGHT SPEED CASES OF TRANSIENT ANALYSIS A 5 

LAN b£ CBIAINED |M ONE SINGLE ANALYSIS. A 6 

TRANSIENT MOTION ORBITS AND AMPLITUDE VS TIME PLOT AT ONE A 7 

PARTICULAR STATION WILL BE GENERATED FOR EVERY SPEED CASE A 6 

FAST FOURIER TRANSFORMATION IS APPLIED TO PRODUCE FREQUENCY A 9 

SPECTRUM ANALYSIS FOR EVERY SPEED CASE A 10 

CAMPBELL PLOTS OF THE SYSTEM ARE ALSO GENERATED A II 

BY K. C. CHDY A 12 

DEPARTMENT OF MECHANICAL ENGINEERING, UNIVERSITY OF VIRGINIA A 13 

MARCH 4, 1977 A 14 

* *****¥4*4 *****+***£*****************************#**************** a 15 

COMPLEX BB (20, 21) »CC ( 20 ) A 16 

REAL KXX(iO),KXY(10),KYX(10),KYY(10),MFX(10),HFY(10),MUV(10),MUX(l A 17 
10>,KMX(10,10),KMY(10,]0),MBX(10),MBY(10) A 18 

REAL KKXX(1G,1C),KKXY(10,10),KKYX(10, 10),KKYY(10,10),KCXX(10,10),K A 19 
1CXY(10,1U>,KCYX(10,10),KCYY(10#10> A 20 

DIMENSION SS PE ED (10) A 21 

DIMENSION C0MENTK8), C0MENT2(8), CQMENT3<8) A 22 

DIMENSION EK6U00), CRT(IO), LLBO(IO), LLNB ( 5 ) , LLNHB( 9), LLSK(IO) A 23 
1, LLNT ( 10 ), LLUF(lO), LLPFilO), LLUTC10) A 24 

DIMENSION DX(IOO), W(100), ENER(IOO), EYl(lOO), EY2I100), DPC(IOO) A 25 
DIMENSION DEFLUOO), LB(IOO), SK(IOO), WA(50), DEXTUOO), DINTflOO A 26 
1 ) A 27 

DIMENSION EXTW(IOO), SWL(IOO), ROUOO), RT(IOO), RP(100J, 61(100) A 28 
CIMENSIGN WMC'D ( 50), AKK(IO) A 29 

DIMENSION E AN 1 ( ICO), EAN2(100|j EYTH(IOO), EEYTH ( 10, 1001 » DDPCI10, A 30 
1100) A 31 

DIMENSION TMX(10,10) A 32 

DIMENSION Al(2,10), A2 { 2, 10 ) , A3 ( 2, 10 ) , BI(2,10), B2(2,10)» B3C2,1 A 33 
2G) A 34 

DIMENSION CM X ( 10,10 ) , CMY(10,10), DMX(10,10), DMY(10,10), EHX(10,1 A 35 
1C), EMY ( 1C, 10 ) A 36 

DIMENSION OEJX (10, 10 ) » DOY( 10,10), EOX(10,10), E0Y(10,10) A 37 

DIMENSION A A A ( 42 ) , &GB(42)> CCC(42), HHH(42), UUU(42), VVV(42) A 3B 
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D I M i« S I Oil CXX(IO), CXY(10>, CYX(IO), CYY(IO), UX(IO), UYCIOI A 39 

DIMENSION FX(1G), FY(IO) A AO 

DIMENSION SLMHB (9,9,9), CLNKB (9, 9, 9 ) A 91 

DIP Eft S ILIU SMK[i,S,3), FSK(IO), PSK(IO), BOW(ICO), PBOWllOO) A A2 

D1MEN510N BXAllOO), BYA (100)# XIDC(IOO), YIDCUOO), VXIDCU001# VY A A3 

1 IOC i ICO) . A AA 

01 hE NS ION ADUHKY ( 8002 ) A A5 

DIMENSION ALABELI ( 6) » ALA8E12 (8 ) , ALABEL3CB) A A6 

DIMENSION VihYilO), VIS(5), ANR15), ANL (5 ) , ANC(5|, NLBI5) A A7 

DIMENSION FC ( 5 1 2 ) , SFC(6,512) A A8 

DIMENSION & VI $ ( fc, 5 ) , aAMP(8,5>, BANKS, 5), BANC(8,5I, INLBC8,5) A A9 

COMMON / BLK1/ N,NB»NNLIN, NMB, NF, NU,NS,NBOW, 1ST AB, INODE, ISKU,NCT»NU A 50 

IF PT A 51 

COMMON /BLK2/ I S K I P, NS TEP, NC YCL£,NI TP, NINT, NP10T,N0RBIT, NTIHE, NSPE A 52 

1 F D * N 1 NC , NG P T , NT A 53 

COMMON /BLK3 / CRT, L LBD, LLNB, LLNKB, L LSK, LLNT, LLUF, U FF, LLUT A 5A 

COMMON / B LKA / K X X,KX Y ,KYX, KY Y, C XX, CX Y ,C YX , CY Y, SLNttB, C LNHB A 55 

COMMON /iiLK5/ OX , UY , F X, FY, FS K, PSK A 56 

COMMON /BLK6/ BOW, PB CW, X IDC, YIDC, VXI DC , VY IDC , BX A, BY A A 57 

COMMON / b L K 7 / C MX, KMX , EMX> CMY* KM Y, EMY A 58 

COMMON /B LKB / MFX,M F Y , MOX, MUY, MBX , MB Y A 59 

COMMON / B L K 9 / DDPC, EEYTH A 60 

COMMON / c LK10 / SP S, S PF, SPN,SP EED1 A 61 

COMMON /dLKll/ DOX, DCY, ECX,EQY A 62 

COMMON /BLK19/ AAA, UUU, VVV,HHH, BBB, CCC A 63 

COMMON / 8 L K 1 5 / PP,RT A 69 

COMMON / BLK16/ SPEfcDZ* ANGSP, ANGACL, FSPEED A 65 

COMMON /BLK1B/ AKK A 66 

COMMON / 0 LK19/ DX A 67 

COMMON /BLK20/ AI, A2, A3, B1 , B2, B3 A 68 

COMMON / BLK 2 1/ OMX, DHY A 69 

COMMON / BLK22/ W A 70 

COMMON /BLK29 / BB,CC A 71 

COMMON / oLK 2 57 BETA A 72 

COMMON /BLK2S/ ALAB6L1, AL ABEL2 , ALABE L3 A 73 

COMMON /BLK29/ PASP A 79 

COMMON /BLK35/ .WHY, VIS, ANR,ANL,ANC, NUB A 75 

COMMON / BLK39/ NSPD,SSPEEO A 76 
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CUNHliN /BLK90/ FCtSFC A 77 

COMMON /BLK91/ KKXX,KKXY,KKYX*KKYY*KCXX,KCXY,KCYX*KCYY A 70 

COMMON /0LK92 1 tV IS *I;ANR» BANL*BANC* INLB A 79 

CUHhfiN A DUMMY A 00 

NNPLT=U A 81 

Rt AD (1*7301 C0MENT1 A 82 

READ (1*730) C0MEHT2 A 83 

READ (1*730) C0MEHT3 A 89 

WRITE (3*1110) A 05 

UkITE (3,790) COHENT 1*CQMENT 2*C0MENT3 A 86 

WRITE (3*750 A 07 

READ (1*760) H*NB* NNCIN»NHB*NF *NU* NS*NBOW* 1ST AB* IMOOE/XSKU* NUFPT A 86 

READ (1*770) ISR IP* NSTEP»NCYCEE * NITP* NINT,NPLOT $ NOR BIT* NT I ME* NSPEE A 69 

10 * h I NC * NOP T , NT A 90 

READ (1*780) (LLBD( J)* J=1,N0 ) A 91 

READ (1*700) MSP.O A 92 

READ (1,710) (SSPEEPU), J»1*NSPD) A 93 

IF (NB.EQ.O) GG SO 30 A 99 

DO 20 I* l*NSPD A 95 

READ (1*790) CKKXXd, J),KKXY4I, J)*KKYXCI*J),KKYYU*J)#KCXK(i#J|#KC A 96 

IKY (1*J)*KCYX( I* J )*KCYY( I*J)*J«1*NB) A 97 

2C CONTINUE A 90 

30 CONTINUE A 99 

IF (NNLIii.EQ.0) GO TO 50 A 100 

DO 90 I=1*NSPD A 101 

READ ( 1* £00 ) (LLNB ( J ) * INLB ( I* J )* BV1S ( I* J ) *BANR( I» J )# BANK 1* J)i BANC A 102 

1 ( I * J ) * J s 1 * NN L lit ) A 103 

90 CONTINUE A 109 

5C CONTINUE A 105 

IF (NMB.EO.O) GO TP 60 A 106 

READ (1*610) (LLNMB( J)» J C 1*NMB) A 107 

READ (1,820) ((((SLNMBU* J » K ) » K = 1 * 9 ) , ( C LNMB ( l, J, K ) , K*l, 9 ) ) * J*l,9), A 10B 

1 1 = 1 » NMO ) A 109 

60 CONTINUE A 110 

READ (1,830) KGYR* F » S PE EDI * SPEED2* ANSACl* F SPEED* BETA A ill 

READ (1,890) (EXTK(J)*DX(J),OEXTU)*Oi«T( J)*RP( J)*RT( J )*EH6 (J) ,R0( A 112 

1 J l * J = l* N ) A 113 

IE (NF.LC.O) GO TO 70 A 119 


! 
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READ (1,860) (LLFF(J),FX(J),FY(J), J»1,HF> 

70 CONTINUE 

IF (NU.tO.C) GO TO 60 

HEAD (1,660) (LLUF(J),UX(4),UY(J),J £ 1,NU) 

60 CONTINUE 

IF (NS. EG. 0! GC TO 90 

READ ( 1# 8 ti 0 I (USK( J), FSM J),PSK( J),J £ 1,US) 

90 CONTINUE 

IF (NT. EG. 01 GO TO 100 
READ (1,660) (LENT ( J ) , J=1 ,NT ) 

100 CONTINUE 

READ ( 1,870) (BOW(J ),PBOW( J>,XIOC( J),YIDC (J), VXIDCI J),VYIDC( J), J*1 
1,N) 

READ (1,680) SPI,SPL,DSP 
READ (1,730) ALABEL1 
READ (1,730 ALABEL? 

READ (1,730) ALABEL3 

WRITE (3,690) NCYCL E, (1ST E P, NI NT, NlNC, NOPT, SP EED2, ANGACL, BETA 
WRITE (3,900) 

DO 110 1*1, N 

IF (RDU).EC.O.O) R 0 ( I ) *0 . 263 

ENERi I) *3 .19159* ( DEXT ( I )**9 .-DINT( l ) **9 . ) /69 . 

IF ( EM6( D.EQ.O.O) EH6(II=E 
EI(I) £ Efto(l)*EMLR(I) 

DL*ABS (DX ( I ) ) 

110 SWl ( I ) =3 * 19 159* ( DE XT ( l ) **2 . -D INTI I ) +*2 • ) +DL*RO ( I ) / 9 .0 

W(l)=SWi(l)/2.+EXTW(l) 

WT=W(1) 

ZLT* DX ( 1 ) 

DO 120 1=2, N 

w( i)=swni-i)/2.o+swi(n/2.o+EXTwm 
C W(i)=TCiTAL EFFECTIVE SHAFT WEIGHT 

WT= WT + W ( I ) 

120 ZLT=ZLT+DX(I > 

IF (HGYHI 130, 150,130 
130 KP( i)=RP(l)+£NER(l)*RO( 1)*DX(1) 

RT(1) £ PT(1)+SW1(1)*( (0EXT(l)*+2.0+DlNT(l )**2.0)/16.0+((DX(1)/2.0|* 
1*2.0)/ 3.01/2.0 


A 115 
A 116 
A 117 
A 116 
A 119 
A 120 
A 121 
A 122 
A 123 
A 129 
A 125 
A 126 
A 127 
A 128 
A 129 
A 130 
A 131 
A 132 
A 133 
A 139 
A 135 
A 136 
A 137 
A 138 
A 139 
A 190 
A 191 
A 192 
A 193 
A 199 
A 195 
A 196 
A 197 
A 196 
A 199 
A 150 
A 151 
A 152 


A. 




90E 


^itaNSB RCGU i§ 
OF. POOR QUALITY 


Xfl 190 1=2,6 . A 153 

K o < I )=KP(I)+RG( ll*f NE-RC 1>+DX< l)+ENER< I-1)+DX( I-l)*RO(I-l) A 154 

PI (1 )=RT(I)+Stol(I)*( (O&XT ( I ) **?.. O+DINT ( 11**2 «0)/16*0+((DX(I)/2«0)* A 156 
1*2,0) /3.G) /2.0+SWK l *1 ) + ( COE XT ( I— 1) **2« O+DINTC I-ll **2*0 1 /16«0*((DX A 156 
?l I-l)/2.0>**2.0)/3,0)/2.0 A 157 

1 AO CLiNTlNUt A 158 

160 SRp=6.0 A 159 

OG 160 1 = 1, N A 160 

160 SRP=SRP+RP(I> A 161 

DU lfaO 1=1, N A 162 

WRITE ( 3,910 ) (I,W(I ) ,0X( I),D£KTU ),OINT( I),ENER( I),RP(II,RTCn,EH A 163 

16<I J, EMIT 1 A 164 

IF (1-60) 160,170,180 A 165 

170 OKI TE (3,1110 A 166 

160 CONTINUE A 167 

WRITE (3,920) WT , ZL T A 168 

DO 190 I=l,hSPO A 169 

WRITE (3,720) l,SSF£ED<n A 170 

WRITE (3,930) A 171 

WRITE (3,990) A 172 

WRITE (3,950) ( J , LLBD ( J ) » KKXX ( f,J),KKXY ( I, J ) , KKYX( I, J ) ,KKYY (I# J ), J A 173 

1-1, KB), A 179 

WRITE (3,960) A 175 

WRITE (3,970) A 176 

WRITE (3,9601 ( J , LLBD ( J ) , KCXXC I, J ) , KC XY(I, J ), KCYXI I, J ) ,KC VY Cl, J I , J A 177 

1 = 1 , NB) A 178 

190 CONTINUE A 179 

If ThHb.EQ.O) Ob TO 210 A 180 

Du 200 I =1, NOB A 181 

HITE (3,960) I , LLNHB ( 1 ) A 182 

WRITE (3,990) ’((56DPG(I,J,tO,K = l,4),J=l,4),( (CLNMB (I,J,K),K*1,4),J A 1B3 

1 = 1,9 ) A 189 

it CUMIMJE A 185 

10 Ir (DDLin.EC.O) GC TU 290 A 186 

DO 230 I=1,NSPD A 187 

WMTt (3,720) I » SSPEEOC I ) A 188 

WPJTF (3,1200) A 189 

DU 220 J=1,NUL1N A 190 



WRITE (3^1210) J, LLNB ( J ) » 1 NLfJ ( I , J ) , BV1 § ( I , J ) , BANR ( 1 * J ) , BANL ( I, J ), B 

A 

191 


lANCCIf J) 

A 

192 

220 

CONTINUE 

A 

193 

230 

CONTINUE 

A 

194 

240 

IF (NF.EQ.O) GO TQ 250 

A 

195 


WRITE (3,1000) 

A 

196 


WRITE (3,1010) (LLFF (JJ,FX(J),FY(J),J»1,NF> 

A 

197 

250 

IF (NS.EO.O) GO TQ 260 

A 

198 


WRITE (3,1020) 

A 

199 


WRITE (3,1030) (LLSK( J),FSK( J),PSK(J), J*1,NS) 

A 

200 

2 00 

IF (NU.EQ.O) GU TQ 260 

A 

201 


WRITE (3,1040) 

A 

202 


WRITE (3,1050) 

A 

203 


WRITE (3,1060) (LLUF(J),UX(J),UY(J),J=1,NU) 

A 

204 


DO 270 J=1»NU 

A 

205 


LX(J)=UX( J) /( 16.+366.4) 

A 

206 

270 

UY { J ) =UY ( J ) / ( 16 . * 366 « 4) 

A 

207 

2 60 

CONTINUE 

A 

206 


WRITE (3,1070) 

A 

209 


DO 290 J = 1 , N 

A 

210 


WRITE (3,1060) J,BOW(J),FBOW(J),XIOC(J),YIDC(J),VXICC(J),VYIDC(J) 

A 

211 

290 

CONTINUE 

A 

212 


00 300 1=1,100 

A 

213 


XIDC(I)=XIDCU)/10GG. 

A 

214 


YIDCI I)=YIDC(1)/1000* 

A 

215 


VX1DC(II«VXIDC(1 t/1000. 

A 

216 

300 

vYiocm»VYiocm/iooo. 

A 

217 


WRITE (3,1090) 

A 

218 


DO 310 1*1, NB 

A 

219 


A VK= ( KKXX ( 1 » I )+RKYY( 1, I ) >/2. 

A 

220 


WRITE (3,1100) I , AVK 

A 

221 

310 

CONTINUE 

A 

222 


NC = I 

A 

223 

C 

NOLOCAL CRITICAL SPEED NO. 

A 

224 

C 

WRITE (3,700) 

A 

225 


WRITE (3,1110) 

A 

226 


L N = 3 

A 

227 

C ' 

SP I = 1 HI T lAt SPEED, SPL*FINAL SPEED, DS P *S PE ED INCREMEHT-RPH 

A 

228 


5PD-SPI A 229 

DETP=0. A 230 

MA=0 A 231 

HB-0 A 232 

C IF ( LN— 50 ) 54* 54*53 A 233 

WRITE (3* 1110) A 234 

WRITE (3*1120) SPI* SPL* DSP A 239 

LN*1 A 236 

WRITE (3*1130) A 237 

LN=LN+3 A 238 

DIN*0SP . A 239 

320 1=1 A 240 

J-l A 241 

SPSQ=SPD*SPD A 242 

C COMPUTE ANG. VELOCITY A 243 

ANSP=SPD*0. 10471976 A 244 

ANSP2=ANSP*ANSP A 249 

VP*0. A 246 

ZMP*0. A 247 

EYP*0. A 248 

ETHP=1.0 A 249 

M*1 A 290 

330 3=1+1 A 291 

11=1-1 A 292 

IF <iI-LL8D(J)) 360*340*360 A 293 

340 AK* (KKXX ( 1* J) +KKYYI1* J ) ) /2 • A 294 

AKK( J)=AK A 299 

IF (J-NB) 350*370*370 A 296 

350 J*J+1 A 297 

GO TO 370 A 258 

360 AK*0. A 259 

370 VP*VP + ( W ( 1-1 )*ANS P2/386.4-AK ) *EYP A 260 

ZMP=ZMP— A NS P2*( ftT ( I— 1 ) ) +ETHP /386 »4 A 261 

£ Y=E YP+DX (1-1 ) +ETHP+OXI I— 1 ) **2*ZMP/ (2 «E6*E I ( 1—1) ) +DX( I— 1)**3*VP/ (6 A 262 

l.E6*EI(I-D) A 263 

ETH=ETHP+DX(I-l)+ZMP/(l.E6*EICI-l))+0X(I-l)**2*VP/(2.E6*EI(I-i)) A 264 

ZM*ZMP+OX ( 1-1 ) *VP A 269 

V=VP A 266 



IF CM .Ed. 2) GO TO 380 
EY1C I)«EY 
E AN1 ( I ) =ETH 
IF (I.GT.N) GO TO 390 
ZMP*ZM 
VP*V 
£ YP=EY 
ETHP*ETH 
bO TO 330 
380 EY2C I >=EY 

E Aft2 ( I )*ETH 

ZMp=ZM 

VP*V 

EYP=EY 

ETHP=ETH 

IF (I.GT.NJ GO TO 400 
GO TO 330 
390 M*2 

ZM1=ZM 
VR1 = V 


EYP=1 • 

ZMP=0 . 

ETHP=0. 

VP*0. 

GO TO 330 

400 DET=VRI*ZM-V*ZM1 

IF (OfcTP.EG.O.) GO TO 450 
IF (MA.EQ.1J GO TO 430 
IF CABS (OET ) .LT.l . ) GO TO 480 
IF CDETP+DET) 410#450,450 
410 OOLO*DETP 
420 MA*1 

IF CABS (OET ) • LT . 1 • ) GO TO 480 
IF COIN* LT.l* E-6) GO TO 480 
DIN-DIN/2. 

DETPP=OETP 



A 267 
A 268 
A 269 
A 270 
A 271 
A 272 
A 273 
A 274 
A 275 
A 276 
A 277 
A 278 
A 279 
A 280 
A 281 
A 282 
A 283 
A 284 
A 285 
A 286 
A 287 
A 288 
A 289 
A 290 
A 291 
A 292 
A 293 
A 294 
A 295 
A 296 
A 297 
A 298 
A 299 
A 300 
A 301 
A 302 
A 303 
A 304 








310 









■' $ 


430 

440 


450 

460 

470 


480 


440 


500 


DETP=DET 
SPD'SPD— 01N 
GO TO 320 

IF (ABS(DET).LT.l*) GO TO 480 
IF <DOLD*DET) 420,450,440 
CONTINUE 

IF (AOS (DET ) • LT « 1 • ) GO TO 480 
IF (DIN vLT«l • E-6 ) GO TO 480 
DI N=DIN/2 • 

SPO*SPO+DIN 

OETPP=OETP 

DETP*DET 


GO TO 320 

IF (LN-54) 470,470,460 
WRITE (3,1110) 

LN*1 

WRITE (3,1140) S PD,OET 

LN*LN+l 

SPD-SPD+DSP 

OIN*DSP 

IF (SPD.GT.SPL) GO TO 640 

DETPP*OETP 

DETP-DET 

SSP0=SP0 

GO TO 320 

HA=0 

WRITE (3,1140) SPO,DET 
LN=LN+ 1 

IF UN-50) 500*500,490 
WRITE (3,1110) 

LN*1 

WRITE (3,1150) NC 
WRITE (3,1160) 

WRITE (3,1140) SPD, DET 

CRT(NC)*SPO 

NC*NC+1 

lN*LN+3 

EYK1 )*0* 



A 305 
A 306 
A 307 
A 308 
A 309 
A 310 
A 311 
A 312 
A 313 
A 314 
A 315 
A 316 
A 317 
A 318 
A 319 
A 320 
A 321 
A 322 
A 323 
A 324 
A 325 
A 326 
A 327 
A 328 
A 329 
A 330 
A 331 
A 332 
A 333 
A 334 
A 335 
A 336 
A 337 
A 338 
A 339 
A 340 
A 341 
A 342 


311 


\ 


EY2 ( 1 ) *1 • 

OTX = 0 • 

1 = 1 

IF ( LN-SO ) 520/520,510 
510 WRITE 13,1110) 

L N* 1 

520 WRITE (3,1170) 

LN*LN+2 

530 DEFL ( I ) =V*EYH I )-VRl*EY2( I ) 

IF (i.NE.l) GO TO 540 

EYTH(I)=V 

GO TO 550 

540 EYTH ( I ) =E AN1 ( I J+V-EAN2 ( I ) *VR 1 
550 DEFA=ABS(DEFL( I) ) 

DMXA*ABS(DTX ) 

1 = 1 + 1 

IF (OEFA-DMXA) 570,570/560 
560 DTX'OEFL ( 1-1 ) 

570 IF ( I-M ) 560/580,590 

560 GO TO 530 

590 DO 600 1=1, N 

DPC(I)=D£FL( I)/OTX 
EY7H(I)=EYTH( I)/DTX 
EEYTH(NC-1/I)*EYTH(I) 

600 DDPC (NC-1, I ) =DPC l I ) 

DO 630 1 = 1, N 
LN=LN+1 

IF (LN-54) 620/620/610 
610 WRITE (3,1110) 

L N=1 

620 WRITE (3,1180) I , DPC ( I) , E YTH ( I ) 
LN*LN+1 

630 CONTINUE 

SPO*SSPO+DSP 

DETP=0. 

GO TO 320 
640 CONTINUE 

NCS=NC-1 



A 343 
A 344 
A 345 
A 346 
A 347 
A 348 
A 349 
A 350 
A 351 
A 352 
A 353 
A 354 
A 355 
A 356 
A 357 
A 358 
A 359 
A 360 
A 361 
A 362 
A 363 
A 364 
A 365 
A 366 
A 367 
A 368 
A 369 
A 370 
A 371 
A 372 
A 373 
A 374 
A 375 
A 376 
A 377 
A 378 
A 379 
A 380 
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650 


660 

670 


660 

690 


C 

C 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 


00 670 I 1=1, NCS 
WMCD(II)*0. 

DO 650 JJ=1,N 

WMOO ( 1 1 ) 3 WMGD (II)+RT(JJ)+EEYTH(II,JJ)**2+W(JJ)*D0PC(II,JJ )**2 
WMODUI ) 3 WMQD(II)/386.4 
DO 660 KI*1»N 

EEYTH(II,KI) 3 £EYTH(II,KI)/(WM0O(II)**O.5) 

DDPC(II,KI)*ODPC( II,KI)/ (WM0D(II)**0.5) 

CONTINUE 
DO 690 11=1, NCS 
DO 660 J«J=1,NCS 
TMX( 1I,JJ)«0. 

DO 680 KI«1,N 

TMX(II,JJ)=TMX(II,JJ)+W(KI )*0DPC(JJ,KI)*DDPC(II,KI)/386.4+RT(KI)*E 
1£YTH( II,KI )*EEYTH( JJ,KI)/386.4 
CONTINUE 

WRITE (3,1190) <TMX< II, JJ),JJ-1,NCS) 

CONTINUE 
NCT®NCS 
CALL TMM 


FORMAT (15) 

FORMAT (8610.3) 

FORMAT ( //,5X,^SPEED CASE NO.#, I5,5X»F15. 0,#RPM* ) 

FORMAT ( 8A10) 

FORMAT (IX, 3 (8A10/1X ) ) 

FORMAT ( / »20X, *MODAL ANALYSIS VERSION 3, APRIL 6, 1977#) 
FORMAT (1215) 

FORMAT (1215) 

FORMAT (1015) 

FORMAT (8G10.3) 

FORMAT (215,4610*2) 

FORMAT (915) 

FORMAT (8610.3) 


FORMAT ( 1 5, 5 X, 661 0.3) 
FORMAT (6610.3) 

FORMAT (15, 5 X, 2610. 3) 



A 381 
A 382 
A 383 
A 384 
A 385 
A 386 
A 387 
A 388 
A 389 
A 390 
A 391 
A 392 
A 393 
A 394 
A 395 
A 396 
A 397 
A 398 
A 399 
A 400 
A 401 
A 402 
A 403 
A 404 
A 405 
A 406 
A 407 
A 408 
A 409 
A 410 
A 411 
A 412 
A 413 
A 414 
A 415 
A 416 
A 417 
A 418 


u» 

M 

U> 




860 FORMAT (1015) A 419 

870 FORMAT (6G1C.3) A 420 

880 FORMAT (3G10.3) A 421 

690 FORMAT (//,10X,#NCYCLE=#, I3,5X,#N$TEP=#,I3, 5X»#NINT*#,I3,5X,#NINC* A 422 

1#>I3,5X, #NOPT =#,I3,/,10X,#SPEED2*#,F10.2, 5X, #ANGACL (1/SEC)*#,FI0.3 A 423 
2,5X,#BETA»#,F10.5,//) A 424 

900 FORMAT (120H STATION NO. WEIGHT LENGTH SHAFT OIA. SHAFT D A 425 

II A • I IP-POLAR MOM. IT-TRANS. MOM. EX10-6 El A 426 

2W120H CLP) (IN.) OUTSIDE INSIDE ( A 427 

3IN**4) (LP-IN**2) (LB— IN**2 ) ,/) A 428 

910 FORMAT (I7,F16.3»F12.3,F10.3, F10.3,F11.2»F12.3, F16.3,Fli.2,GI0.3) A 429 

920 FORMAT (16X,?H -,5X,7H ™/7X, F16.3, F12.3/ > A 430 

930 FORMAT (/, 34X,# LINEAR SUPPORT BEARING STIFFNESS CHAR AC TER ICS#/ I A 431 

940 FORMAT ( 5X, 16HBE ARING BEARING, 12X,3HKXX, 16X, 3HKXY,16X,3HKYX,16X*3 A 432 

1HKYY, /5X,6HNUMBER,3X,8HL0CATI0N,8X,7H( L B/ IN ) , 11 X, ?H ( LB / IN > , 11 X, 7H ( A 433 
2LB/1N) , 11X, 7H (LB/IN) ) A 434 

950 FORMAT ( 5X, 1 3, 6X, 13, 9X, F 11 .1,5X, Fll . 1# 8X, F 11. 1, 8X,F 11 .1 ) A 435 

960 FORMAT (/,35X,# LINEAR SUPPORT BEARING DAMPING CHARACTERISTICS#/ A 436 
1 ) A 437 

970 FORMAT ( 5X, 16HDAMP ING DAMPING, 12X, 3HCXX, 16X, 3HCXY, 16X, 3HCYX, 16X , 3 A 436 
1HCYY, /, 5X,6HNUMbER» 3X,8HL0CATI0N,6X, 11H( LB-SEC/ IN ), 10X , 11H( LB-SEC/ A 439 
2IN),10X,11H(LB-SEC/IN),10X,11H(LB-SEC/IN») A 440 

980 FORMAT (//, 10X,#FULL BE ARING NO. #,I2, 3 X, #AT STATION#, 13,/) A 441 

990 FORMAT ( 10X, ^BEARING STIFFNESS LB/ IN#, //, 4 (4 (5X,G15 . 3), / > , / /,10X,# A 442 
18 EAR ING DAMPING LB-SEC/IN#, //,4(4( 5X,G15.3>, /)) A 443 

1000 FORMAT ( //,20X,#EXTERNAL FORCES#, /,5X,#STATI ON NO. #,10X,#X#, 15X,#Y A 444 
1#,/) A 445 

1010 FORMAT ( 10X, 13,2 (5X,G15.5 ) ) A 446 

1020 FORMAT ( //,20X,#SKEWE0 DISC#, /, 5 X,#STATI0N NO.#,10X,#SKEWCRADI#, 5X A 447 

1, # PHASE ANGLE DEG.#,/) A 448 

1030 FORMAT (10X, 13,2 (5X, G15. 5 ) ) A 449 

1040 FORMAT ( / / / ,25X , #ROTOR UNBALANCE IN 02-IN.#,/) A 450 

1050 FORMAT (5X, # STATION#, 10 X, #X-UNBALANCE#, 10X,#Y-UNBALANCE#, /) A 451 

1060 FORMAT ( 8X, 12, 12X,F10.3,11X,F10.3) A 452 

1070 FORMAT ( 7/,20X,#SHAFT INITIAL CONDI TIONS#, //, 5X, #STATION N0.#,5X,# A 453 

1B0W-MILS#,5X,#PHASE ANGLE#, 5X,#X-DISP#,10X#Y-OISP#,10X,#X-VEL#,10X A 454 

2, #Y-VEL#,/,34X,#(DEGBEES)#,6X,#(MILS>#, 10X,# (MILS )#,10X,#HIl/IN#,l A 455 

30X,#MIL/IN#,/) A 456 


1080 FORMAT (5X,I3»6(5X,F10.2)> A 457 

1090 FORMAT < //, 10X,*AVERAGE BEARING STIFFNESS USED FOR CRITICAL SPEED A 456 

1CALCULATI0NS*) A 459 

1100 FORMAT C 10X,*BEARING NO. *, 12* 5X, ^STIFFNESS UB/IN ) *, F12 ,2 1 A 460 

1110 FORMAT (1H1WI A 461 

1120 FORMAT l//,5X,* INITIAL SPEED-*, F10. 2,5X,*FINAL SPEED-*, F10.2, 5X,* A 462 

1SPEED INCREMENT-*, F10. 2,* RPM *,//» A 463 

1130 FORMAT (/ 13X,3HRPM, 20X, 5HDELTA, 12X,2FIK1, 13X, 2HK2/I A 464 

1140 FORMAT { 10X, F6.1,9X,E17.9> A 465 

1150 FORMAT ( //,10X, *CRIT1CAL SPEED N0.*,I2) A 466 

1160 FORMAT C /,10X,14HCRITICAL SPEED, 11X, 5HDEL TA, /! A 467 

1170 FORMAT (/,12X,6HSTA NG,10X,14HNET DEFLECT ION, 10X,5HANGLE) A 468 

1180 FORMAT C 12X, 15, 13X, F9. 5, 13X, F9. 5 » A 469 

1190 FORMAT ( 5X, 10IF6. 2,2X1 i A 470 

1200 FORMAT ( //, 10X, * NON LINEAR BEARING DATA*, / /, 5X, *NONl INE AR*,6 X,*STAT A 471 

1 ION NO. *, 4X, * BEARING NO. *,4X, *V ISCOSI TY*, 6X, * RADIUS *, 9X, *LENGTH*, 9 A 472 

2X , *CLEARANCE*, /, 5X» * BEARING *, 38X, *LB/IN**2*,7X,*( IN. )*,10X,*(IN. A 473 

3)*,10X,*(IN.}*,/) A 474 

1210 FORMAT ( 5 X, 15, 1CX, I 5, 10X, 15, 10X,E10.4,5X,£10.4,5X,E10.4,5X,E10.4) A 475 

END A 476- 
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subroutine TMM B I 

***************** ****** ******************************************* B 2 
THIS SUBROUTINE CONTROLS THE MODAL ANALYSIS OPERATION AFTER THE B 3 

PLANAR CTITICAL SPEEDS AND MODE SHAPES HAVE BEEN CALCULATED* B A 

****************************************************************** B 5 
COMPLEX B# C B 6 

REAL KXX#KXY#KYX#KYY#MFX#MFY#MUX»MUY*KMX,KMY B 7 

REAL KKXX#KKXY#KKYX#KKYY#KCXX# KCXY#KCYX#KCYY B 6 

COMMON /BLKI/ N #NB # NN L IN# NMB# NF #NU#NS »NBOW# I ST AB# IMODE# I$KU#NNCT# N B 9 
lUFPT B 10 

COMMON /8LK2/ ISKIP#NSTEP#NCYCLE#NITP#NINT#NPIOT#NORBIT#NTIME#NSPE B 11 
1ED,NINC#NGPT#NT B 12 

COMMON /BLK3 / CRT { 10 ) , LLBD ( 10) # LLNB < 5) # LLNMB ( 9) » LLSKC 10>» LLNTC 101 # B 13 
1LLUF ( 10)»LLFF(10)#LLUT(10) B 1A 

COMMON /BLKA/ KXX( 10) #KXY (10 ) #KYX UO) t KYY CIO I #C XX( 10)#CXY(10 >#CYX ( B 15 
1101# CYY(10)#SLNM8(9#A#A )#CLNMB (9#A# A ) B 16 

COMMON /BLK5/ UX C 10 ) #UY ( 101 #FX ( 10) # FYt 101 # FSK (10 I # PSK( 101 B 17 

COMMON /BLK6/ BOW 1100 1 >PBQW( 1001 # XIDC (100 1# YIDCC 100) # VXIDCC 100 ) # VY B 16 
1IDC(100)#BXA(10G)#BYA(100) B 19 

COMMON /BLK7/ C MX ( 10# 10 ) #KMX ( 10# 10)#EMX (10# 10 I #C MY 1 10# 10) #KMY( 10# 1 B 20 
10)#EMY( 10# 10) B 21 

COMMON /BLK8 / MFX ( 10) »MFY ( 10 ) #MUX ( 10) #MUY( 10)#MBX{ 10) #MBY (10) B 22 

COMMON /BLK9/ UDPC ( 10# 100 ># EEYTH( 10# 100) B 23 

COMMON /BLK10/ SPS# SP F# SPN# SPEE01 B 2A 

COMMON /BLK11/ OOX ( 10# 10) # OOY( 10# 10 )» EOX( 10# 10»# EOY( 10# 10) B 25 

COMMON /BLK15/ RP (100 l#RT( 100) B 26 

COMMON /BLK16/ SPEE02# ANGSP# ANGACL# FSPEED B 27 

COMMON /BLK16/ AKK(IO) B 26 

COMMON /BLK20/ A1 (2# 10) # A2( Z# 10)# A3C 2# 10) # B1 (2# 10 )# B2 (2#10| #B3( 2# 1 B 29 
10) B 30 

COMMON /BLK2A/ B ( 20# 21 ) #C (20 ) B 31 

COMMON /BLK25/ BETA B 32 

COMMON /BLK29/ PASP B 33 

COMMON /BLK35/ WMY ( 10) # VIS ( 5) » ANR ( 5 ) # ANL( 5) » ANC ( 5) # NLB (5) B 3A 

COMMON /BLK39/ NSPO# SSPEED( 10) B 35 

COMMON /BLKAO/ FC ( 512 )# SFC ( 8# 512 ) B 36 

COMMON /BLKA1/ KKXX ( 10# 10) #KKXY( 10#10 ) #KKYX ( 10# 10) • KKYYUO# 10 )#KCX 8 37 

IX ( 10# 10) »KCXY (10# 10 ) #KCYX (10#10)>KCYY(10#10) B 38 
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I 

1 

1 


COMMON /6 LK42 / B VI S ( 0 » 5) , BANR < 6, 5 ) , BANL < 8, 5 ) , BANC < B, 5 ) » I NLB 1 8, 5 ) 
COMMON SI <40011, S2<4001) 

IF (NBOK.EQ.O) GO TO 10 
CALL SFTaOW 
10 CONTINUE 

STEP=NSTEP 
FMAX*0. 

NUM»NCYCL£*N$TEP 
CALL CALCOMP (10} 

DO 140 K*1,N5PD 
XMAX=0 • 

Y MAX = 0. 

SPEED2=SSPEED(K) 

0ELTAT»60./(SSPEE0<K)*STEP) 

DO 20 4=1>NB 
KXX(J)=KKXX(K>J)-AKK(J) 

K XY ( J I =KKXY < K# J ) 

KYX I J)=KKYXiK, J) 

KYYC J)*KKYY(K,JI“AKK (J) 

CXX(J )=KCXX(K*J) 

CXY(J )=KCXY(K,J) 

CYX( J)*KCYX(K* J) 

CYY(J )=KCYY<K, J) 

20 CONTINUE 

IF (NNLIN.EQ.O) GO TO 40 
DO 30 J=1,NNL IN 
Vise J»=BVIS<K, J ) 

ANR( J)=BANR(K# J I 
ANL( JI *BANL(K, J) 

ANC < J) =BANC ( K j J ) 

NLB ( J) =INL8 <K# J ) 

30 CONTINUE 

40 CONTINUE 

SPEED-SPEED2 
CALL THGDE1 
NSTEP1*NSTEP+1 
T IM£=0 • 

I INT=1 



B 39 
B 40 
B 41 
B 42 
B 43 
B 44 
B 45 
B 46 
B 47 
B 48 
B 49 
B 50 
B 51 
B 52 
B 53 
B 54 
B 55 
B 56 
B 57 
B 58 
B 59 
B 60 
B 61 
C 62 
B 63 
B 64 
B 65 
B 66 
B 67 
B 68 
B 69 
B 70 
B 71 
B 72 
B 73 
B 74 
B 75 
B 76 
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IF (NINC.EG.O) GO TO 60 
CALL UBS T (1# SPELD ) 

00 50 I=1*NNCT 
1 1 = I+NNCT 

A3 (l*i ) =KEAL (C( 1 ) )*.9 
83(1*1 )=KEAL(C(II ) >*.9 

A2 tl*I)*-AIKAG(C( I > >*SPEED*0. 10471975*. 9 
50 82(1* I )=-AIHAG(C(II))*SPEED*0. 10471975*. 9 

GO TO 70 
60 CALL TING 

IF (NeOW.EO.O) GO TO 70 
CALL S FT COW 
70 CONTINUE 

ICGUNT=1 

CALL TSTDRE CNNCT# It XKAX, YKAX1 

NK-0 

NPLUS=0 

IF (ANGACL.NE.O.) NPLUS»99999 

N J-NPLUS+l 

PASP*0. 

00 110 1=1, NUH 
TIHE-TIKE+DELTAT 
IF (I.GT.HJ) NK=1 

CALL TM0DE2 (TIKE*DELTAT*5PE£D*NK> 

CALL TACCEL 
GG TD (80*90) * HINT 
SO CALL T86TA (NMC1*0ELTAT* BETA ) 

GO TO 100 

90 CALL TINTG CNNCT* OELTAT) 

ICO CONTINUE 

1C0UNT-I CDUHT+1 

C ALL TSTORE (NNCT*ICOUNT* XMAX* YMAX ) 
PASP=PASP+DELTAT*SPEEO 

no continue 

CALL TFFT (FC*HSTEP) 

DO 130 J=l>512 

CFC=FC(J)*SSP£ED(1)/55PEED(K) 

IF (CFC.LT.FHAX) GL TO 120 


B 77 
B 78 
B 79 
B 80 
B 81 
B 82 
B 83 
0 84 

B 85 
B 86 
B 87 
B 88 
B 69 
B 90 
B 91 
B 92 
B 93 
B 94 
B 95 
B 96 

. B 97 

* B 98 

B 99 
B 100 
B 101 
B 102 
B 103 
B 104 
B 105 
B 106 
B 107 
B 108 
B 109 
B 110 
B 111 
B 112 
B 113 
B 114 
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FHAX=CFt 

B 

115 

120 

CONTINUE 

B 

116 

130 

SFCLK* J)*CFC 

B 

117 


FTIHE=TIME 

B 

118 


NPLT*20*NSTEP-»1 

B 

119 


IF (NPLOT.EQ.il 60 TO 140 

B 

120 


CALL 08PL0T { XKAX, YM AX, NPLT* LLKT ( 1 U NSTEP » K » 

B 

121 


CALL THPLOT (XHAX>YMAX#NPLT.#LLNT(1I#FTIHE*NSTEP) 

B 

122 

140 

CONTINUE 

B 

123 


CALL SPLOT CFMAXI 

B 

124 


RETURN 

B 

125 


END 

B 

126- 


SUBROUTINE TMODE1 

4 ***+**+*> ^f^*^************************************************* 
THIS SUBROUTINE CALCULATES THE MODAL COEfFICIENTS WHICH ARE INDEPE 
OF SPEED AND ACCELERATION. THEY CAN BE USED IN OTHER SUBROUTINES. 
*******4*********4*********************#********4***************** 
REAL KXX,KXY, KYX, KYY, MFX, MFY,MUX, MUY , KMX, KMY 

COMMON /BLK1/ N, HB, NNL IN* NMB , NF, NU, HS » NBOW, I STAB* I MODE# iSKU, NNCT,N 
1UFPT 

COMMON /BLK3/ CRT 110 * , LLBDl 10> , LLNB ( 5 I , LLNMB 1 9 ) , LLSKC 10 |,LLNT CIO I , 
1LLUF ( 10 )> LLFF ( 1G1,LLUT ( 10 ) 

COMMON /BLKA / KXX (10) ,KXY ( 10 ) , KYX ( 10 } ,KYY{ 10),CXX (10 ) ,CXY( 10) ,CYXt 
110),CYY(10),SLNKB ( 9, A ,A > , CLNM8 ( 9,A,4 » 

COMMON / B L K 7 / CMX (10, 10 ), KMX C 10# 10),EMX(10,10),CMY( 10# 10), KMY (10>1 
101 ,EMY ( 10/10) 

COMMON /8LK8/ MFX (10 ), MFY( 10) , HUX (10 ) ,MUY ( 101 ,MBX ( 10) , MB Y(10) 
COMMON /BLK9 / DDPC ( 10, 100 ) , EEYTH ( 10, 100) 

COMMON /BLK11/ DDX( 10,10), DDY( 10,10 >,EOX( 10, 10), EOYt 10, 101 
COMMON /BLK22/ WC 100 ) 

COMMON /BLK35/ kiMY ( 10 ), VIS (5 ) , ANR ( 5 I , ANL ( 5) , ANC ( 5 I, NLB( 5 ) 

DO 10 1*1, NNCT 
00 10 J= 1,NNCT 
CMX { 1, J 1*0. 

CMY ( I, J ) *0. 

KMX ( I, J) *0. 

KMY (1, J )=0. 

DOXU, J)=0. 

DOY ( 1, J ) *0. 

EOX ( 1 , J ) *0. 

EOY (I, J ) =0 • 

CONTINUE 
DO 30 1*1, NB 
J*.L.LBp ( 1 1 
DO 20 K*l, NNCT 
DO 20 L= 1, NNCT 

CMX (K, L ) *CHX ( K , L ) +CXX ( I ) 40DPC ( K, J ) *DOPC ( L, J I 
CMY(K,L )*CMY (K, L l+CYY ( II+DDPC ( K, J t+DDPC ( L, J) 

KMX (K,L)*KKX(K,L>+KXX(I)*ODPC(K,J>*DDPC(L, J) 

KMY (K, L ) *KMY (K, L )+KYY( I)4DDPC(K,J)*0DPC(L,J) 


C 1 
C 2 
C 3 
C A 
C 5 
C 6 
C 7 
C 6 
C 9 
C 10 
C 11 
C 12 
C 13 
C 14 
C 15 
C 16 
C 17 
C 18 
C 19 
C 20 
C 21 
C 22 
C 23 
C 24 
C 25 
C 26 
C 27 
C 28 
C 29 
C 30 
C 31 
C 32 
C 33 
C 3A 
C 35 
C 36 
C 37 
C 38 


rss 3 =aa . esaga-.,-:.! . r 'rr , . 1:. .. rrrrr: , 


■■■tr-zi mm.. .....mm. 


zc 

30 


4G 


50 


60 


DCX(K,L)=DOX(K,n+CXY(I>*DOPC(K, J)*DDPCCL, J) C 

DOY(K,L)*DOY(K,L) :CYX< I)*DDPCCK,J)*DDPCtL,J) C 

£CXCK,L)=EQX(K, U *KXY (I )*DDPC ( K, J) *ODPC C L , J > C 

EaYCK,L> = taY(K,L) + KYXCn*ODPCtK,J>*DOPC(l,J) C 

CONTINUE c 

IF (Mfl.Efl.O) GO TO 50 C 

DO 40 1*1, NH6 C 

L*LLNHBCI) C 

DO 40 J *1, NNC T C 

DO 40 K=l, NNCT C 

CMX(J,K)*CFX(4,K)4CLNHB(I,1, 1} *DOPC (J,L)*DDPCCK, L)*CLNHBCI, 1,2 ) **D C 
10PC<4,U*EEYTH(K,L)+CLHHBCI,2,1)*EEYTHI J, L ) *DDPC ( K, L >+C LNHB C I, 2, 2 > C 
2*£EYTH( J,U*EEYTH(K,L > C 

CHYt J,K>=Cim J,K)+CLNKB< 1,3, 3 } *DD PC ( J , L ) *DDPC (K, L) 4CLNMB (1,3,4) *DD C 
1PCC J,L)*EEYTH(K,D + CLNHBCI,4,3)*EEYTHC J,L)*OOPC(K,L)4CLNHB( 1,4,41* C 
2E£YTh< J,L)*EEYTH(K,l) C 

KHXt J,K)=KMX( J,K)+SLNMB Cl, 1, 1) *DDPCC J, L)*DDPCCK,l»+SLNHBC I,1,2)*DD C 
1PCC J, L)*EEYTH{K,L)+SLHHB( I,2,1)*££YTH< J , l ) * DO PC < K, l ) +SL NK8 ( 1 , 2, 2 ) * C 
2EEYTHC J,L)*EEYTH(K,L) C 

KMYC J,K)*KMY (J,K)4SLNHBC I,3,3)*0DPCC J,L)*DDPCIK,U*SLNHB( I,3,4)*00 C 
1PC U,L J*EEYTHCK,U4SLHMB(I,4,3)*£EYTHC J, L) *DDPC < K, L >+S LNMB < 1,4,4)* C 
2EEYTHC J,L)*EEYTH(K,L> C 

DOXC J,K)*DaX(J,K)4CLNHB(I,l,3)*D0PCC J, L) *OOPCCK, U+CLNHB I I, 1,4 ) *00 C 
1PC< J,L)*EEYTHCK,L)+CLNHB(I,2,3)*EEYTHCJ,U*D0PCCK,L)*CLNHBII,2,4|* C 
2EEYTHC J,L )*£EYTH(K,L) C 

DOYC J,K)*OOYCJ, K)4CLNH8< 1,3,1 )*DDPC(J,L )*DOPC CK,L)4CLNHB( 1,3,2 )*D0 C 
lPCCJ,U*eEYTH(K,L)4CLNMB(l,4,l)*EEYTHt J,U*0DPCCK,l)4CLNHBII*4,2)* C 
2EEYTHCJ,L)*EEYTH<K,U C 

EOXCJ,K)=EOXC J,K) +SINMB (1,1,3 )*ODPC C J, U *ODPC (K,L)+SLNHB( I,1,4)*DD C 
1PCCJ, L)*EEYTHCK,L l+SLNHB ( I ,2 , 3 ) *£EYTH( J,L ) *DDPCC K, L )+S LNHBC 1,2,4)* C 
ZEEYTHC J,L)*££YTHCK,L) C 

EOYC J,K)*EUY (J,K) + SLMHBC I, 3, 1) +ODPCC J, L)*DDPC(K, L)4SLNHB ( 1,3,2) *00 C 
1PCCJ,L)*EEYTH(K,L)+SLNHBCI,4,1)*EEYTH(J,LI*00PCCK,L)4SLNHBC1,4,2)* C 
2EEYTH C J ,L)*EEYTHCK, L) C 

CONTINUE C 

00 60 1*1, KMC T C 

KFX C I }=G. C 

HFYC1)«0. C 
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40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 
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IF {NNL1N.E0.0) GO TO 90 C 77 

DO 60 I=1»NNCT C 78 

DO 70 J = 1 » N C 79 


IF (NNL1N.E0.0) GO TP 90 C 77 

DO 60 I=I»NNCT C 78 

DO 70 J = 1 » N C 79 

70 MFYtl J =HF VC 1 ) +DDPCC I» C 80 
b«UI)*KFY(n C 81 

80 CONTINUE C 82 

90 CONTINUE C 83 

RETURN C 89 

END C 85- 


i 

1 


:>t 

: i 
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SUBROUTINE UBST (IN0#5D) 

♦^♦♦♦♦♦***** *# #*♦**♦*♦*♦**♦* ♦♦♦♦♦♦***#* 4 ** 4 ******* 4 *** 4 * 44 **** 4 * 4 * 
THIS SUBROUTINE CALCULATES THE UNBALANCE RESPONSE OF ROTOR SYSTEM 
USING THE PLARAk MODES. WHICH CAN LATER BE TRANSFORMED INTO REAL 
DISPLACEMENTS. 

*********** 4 ***** ****+-# **4 »*#'**♦♦***♦♦♦****♦**♦***♦ ♦*****♦**♦*♦♦** 

REAL HBX# MBY 
DIMENSION SPED! 50 J 
COMPLEX 6#C#DU H 
COMPLEX EUM 

REAL KXX#KXY#KYX#KYY#HFX#MFY#MUX#HUY#KMX#KMY 

COMMON /BLK1/ N#NE#NMLIN# NHB# NF #NU#NS#NBOW# I STAB* INODE# ISKU#NHCT#N 
1UFPT 

COMMON /BLK3/ CRT( 10 1 # LLBO C 10) # LLNB (5 ) #LLNH6 (9) # LLSK(IO) #LLNT(10># 
lLL(iF(10)#LLFF(10)#LLUT(10) 

COMMON /BLK5/ UX( 10 )#UY(10 >#FX( 10)#FY( 1O)#FSK(10)# PSK(IO) 

COMMON /BLK7/ CMX ( 10# 10) # KMX < 10# 10) # EM X< 10# 10) # CMY (10# 10 ) #KMY< 10# 1 
10) #EKY I 10# 10 ) 

COMMON /BLK6/ MFX(10)#HFY(10)#MUX(1G)#KUY(10)#MBX(10)#MBY(10> 
COMMON /BLK9/ DDPC ( 10# IOC ) # ££YTH( 10# 100 ) 

COMMON /BLK10/ SPS#SPF#SPN#SP£ED1 

COMMON / BLK11/ DOX < 10# 10 ) #D0 Y(10# 10) # EOX ( 10# 10 )#EOY <10# 101 
CGMMCK /6LK15/ RP UOG) # RT ( 100) 

COMMON /BLK16/ AKK(IO) 

COMMON /BLK21/ DMX( 10# 10)#DHY(10#10) 

COMMON /8LK24/ B(20#21)#C (20) 

COMMON UD1SPXR ( 10# 50 ) #U0ISPX1 ( 10# 50 )# UDISPYR ( 10# 50)# UD I SPY I (10# 50) 
1#XMA J(10#50) # XMIN (10# 50# PH A J ( 10# 50) # PH IN ( 10# 50 )# ADUMMY ( 4002) 
SP1*SPN 
IJ*1 

ANGSP=SD*3. 14159/30. 

NN*NHC T*2 
MM*NNCT*2+1 
DUM*CMPLX(0.#1. ) 

EUM«CHPLX(1.#C.) 

DO 10 I*1#NNCT 

Huxm-o. 

KUY ( 1 ) -0. 



D 1 
0 2 
D 3 
0 4 
D 5 
D 6 
D 7 
D 6 
D 9 
D 10 
D 11 
D 12 
D 13 
D 14 
0 15 
D 16 
D 17 
D 18 
D 19 
D 20 
0 21 
0 22 
0 23 
D 24 
D 25 
D 26 
D 27 
D 2e 
D 29 
D 30 
0 31 
0 32 
0 33 
0 34 
9 35 
0 36 
D 37 
D 36 
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10 


CONTINUE 0 39 

IF (NU.EG.OJ GO TO 40 D 40 

00 30 I = 1* NU D 41 

J = LLUF<n D 42 

OQ 20 K=1,NNCT 0 43 

MUX(K)=MUX(K)+ANGSP*ANGSP*UX (I)*DDPC<K* J) 0 44 

MUY(K) =MUY(K) + ANGSP*ANGSP*UYm*DDPC(K# J) D 45 

20 CONTINUE D 46 

30 CONTINUE D 47 

4 C IF (NS.EG.O) GO TO 70 D 48 

DO 60 I*> -%S D 49 

J=LLSK( I) 0 50 

PAS=PSK(I )/5 7.29578 0 51 

PCOS*COS ( PAS ) 0 52 

PSIN=$IN(PAS) D 53 

DO 50 K- 1» NNCT D 54 

MUX<K)>hUX<K) + ANGSP*ANGSP*FSK<n*PCOS+(RP<J)-RT( Jn*EEYTH(K,JW306 D 55 

1.4 D 56 

50 MUY ( K ) » : MUYt K ) + ANGSP* ANGSP+FSK ( I ) *PS I N*( RP l J ) -RT ( J ) 1+EEYTH CK* J ) / 386 0 57 

1.4 0 58 

60 CONTINUE 0 59 

70 CONTINUE D 60 

IF INBOW. EG. 0) GO TO 90 D 61 

DO 80 1*1, NNCT D 62 

MUX ( I)=MUX{I)+MBX(I) D 63 

80 MUY ( I) =MUY ( 1 J+MBY ( II D 64 

90 CONTINUE 0 65 

DO 100 K = lj NNCT 0 66 

DO 100 L » 1* NNC T D 67 

EMX(K*L)=EDX(K*L) 0 68 

EMY( K* t ) =EOY (K> L ) D 69 

DMX(K*L)=DOX{K,L) D 70 

DMY(K*L)=DQYiK,L) 0 71 

DO 100 J=l/N D 72 

DMX<K*L)=DMX(K*L)+ANGSP*RP(J)*EEYTH<K»J)*E£YTH(L#J)/366.4 0 73 

DMY (K* L ) = DMY (K* 1 )-ANGSP*RP ( J ) *EEYTH{ K* J ) *EEYTH< L* J) /386. 4 D 74 

100 CONTINUE D 75 

DO 120 1=1*10 D 76 
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00 110 J* 1, 11 
110 B(I,JI=CMPLX(0.,0.) 

120 C<I)*CMPLX<0.,0* ) 

IF (NNLIN.E0.0) GO TO 140 
00 130 I-1,NNCT 
130 MUY (1 I=MUY( I I-MFYI I) 

140 CONTINUE 

00 160 1*1,NNCT 
11= I+NNCT 
DO 160 J«1,NNCT 
J J= J+NNCT 

B( I, J J =B { I, J J+KHX ( I , J }*EUH+CHX C l, J )*DUK*ANGS P 
B«II, J)*B(II, J >+EMY(I, JJ*EUM+DHYII»J|*DUH*ANGSP 
B ( I, JJ)«BU, JJUEMXI I# J)*EUM+OMXII#J»*DUM*ANGSP 
150 B( II, JJ)*B(II,JJ>+KHYU,J)*EUM+CHY(I, J)*DUH*ANGSP 

B( I, I ) =B C I, 1 1+ ( (CRT ( I ) *3. 14159/30. )**2-ANGSP**2 )*EUH 
B( I I, ll )*B (II, 1 1 ) + ( (CRT (I ) *3 .14159/30 • )**2-ANGSP**2 I+EUH 
NEX-NNCT+2+1 

B(I,NEX)=-CNPLX(HUX(I),HUY(I ) ) 

160 B(II,NeX)=-CttPLX(HUY(I),-MUXmi 
CALL SOLVE <NN,NH) 

RETURN 

END 


D 77 
D 78 
D 79 
0 60 
D 81 
0 82 
D 83 
0 84 

D 85 
0 66 
D 87 
0 88 
D 89 
0 90 
D 91 
D 92 
D 93 
D 94 
D 95 
D 96 
0 97 

0 98 

D 99- 


id 


SUBROUTINE SOLVE ( NN, MM ) E 1 

COMPLEX 8»C,0UMMY,CDNJG E 2 

COMMON /BLK29/ B ( 20, 2 I) , C ( 20) E 3 

DO 80 1 = 1# NN E 4 

K= I E 5 

10 IP (CABS( B(K, 1 )) ,GT. 0.000001 ) GO TO 20 E 6 

K = K + 1 E 7 

IE (K-NN) 10*10,90 E 6 

20 IF (I-K) 30,50,90 E 9 

30 DO 90 M=1,MM E 10 

DUMMY =B ( I,M) E 11 

B ( I , M ) =B ( K, M ) E 12 

90 B I K, M ) = DUMMY E 13 

50 11=1+1 E 19 

IF (II.GT.NN) GO TO 80 E 15 

DO 70 N= I I, NN E 16 

IF (CAPSCBTN, II) .LT.0.000001J GO TO 70 E 17 

SO=(CAtiS(B( 1,1) I )**2 E 18 

DUMMY = B ( N, 1 ) *CON JG{ B ( I, I) ) /SQ E 19 

DO 60 M=I ,MM E 20 

60 B ( N, M ) = B ( N, M ) -B ( I ,M ) *DUMM Y E 21 

70 CONTINUE E 22 

80 CONTINUE E 23 

GO TO 100 E 29 

90 IF (I.EQ.NN) WRITE (3,150) E 25 

IF (I.LT.NN) WRITE (3,160) E 26 

STOP E 27 

C START BACK SUBSTITUTIONS E 26 

100 I = NN E 29 

110 0UKKY=(0. 0,0.0) E 30 

IF (I.EG.NN) GO TO 130 E 31 

JJJ=I+1 E 32 

DO 120 J= JJJ,NN E 33 

120 DUMMY*DUMMY + B(I, J)*CU) E 39 

130 S0 = (CABS(8M,I) ) )**2 E 35 

C(I )*— ( DUMMY+B ( I , MM ) ) *C ON JG ( B ( I , I ) ) / $Q E 36 

1=1-1 E 37 

IF (I) 190,190,110 E 38 


a 




9ZZ 


140 RETURN E 39 

C E 40 

150 FORMAT < 4X, 19HMATRI X HAS ZERO ROW! E 41 

160 FORMAT <4X> 22HMATRIX HAS ZERO COLUMN! E 42 

END E 43- 



1 




FUNCTION PANG ( A T CS , AFSN ) 

C 

C * THIS IS A FUNCTION USEO TO CALCULATE THE ANGLE 

C + WHOSE ARCTAN VALUE IS GIVEN ************* 

C 

ACS=AFCS 
ASM AFSN 

IF (ASM) 40, 10# AO 
10 IF (ACS) 20,30,30 

2C AMG-160.0 

GO TO 120 
30 ANG=0.0 

GO TO 120 

40 IF (ACS) 90,50,60 

50 IF ( A SN ) 60,30,70 

6C ANG=270. 

GO TO 120 
70 ANG=90. 

GO TO 120 
PO ANG = 0 . 

GO TO 100 
9C ANG=-1B0. 

100 ASMASN/ACS 

ACS=ABS( ASNi 
ACS'ATAMACS) 

ANG=ANG+ACS*B7.295780 
IF (ASN) 110,120,120 
110 ANG=-ANG 

120 IF (ANG) 130,140,140 
130 ANG* ANG+360 • 

140 P ANG= ANG 

RETURN 
END 


F 1 
F 2 
F 3 
F 4 
F 5 
F 6 
F 7 
F B 
F 9 
F 10 
F 11 
F 12 
F 13 
F 14 
F 15 
F 16 
F 17 
F 18 
F 19 
F 20 
F 21 
F 22 
F 23 
F 24 
F 25 
F 26 
F 27 
F 28 
F 29 
F 30 
F 31 
F 32 








a;- 


i 


K ... I 




C t 


r 



328 


u u u u 


SUBROUTINE SFTBQW G 1 

44444444444444444444 ** 4 ***** 4 ************************************* G 2 

THIS SUBROUTINE CALCULATES THE SHAFT BOW EFFECTS INTO NODAL G 3 

COORDINATES. (FOR INITIAL CONDITIONS AND UNBALANCE EFFEC G 9 

4 4 444 4 44 444 * 444444444 ******* ************************************** Q 5 

0 1 PENSION BX(IOO), BY(IOO) G 6 

DIMENSION X(lO>, Y(10), Z(IO,IO} G 7 

REAL MBX, MBY G 6 

COMMON /BLKI/ N ,NB, NNU N, NMB, NF, NU, NS, NBOU, 1ST AB, IMOD E, I SKU,NNCT, N G 9 

1UFPT G 10 

COMMON /BLK3 / CRT ( 10 } , LLBD ( 10 ) , LLNB ( 5 } , LLNMB ( 9} , LLSK (10 ), LLNTC 101 , G 11 

1LLUF(10),LLFF(10),LLUT(10) G 12 

COMMON /BLK6/ BOW ( 100 ) , PBOWIlOO ) , X I DC < 100 ) , Y I DC ( 100 ), VXI DC ( 100 ) , VY 6 13 

IIDC( 100),BXA(100),BYA(100} G 19 

COMMON /BLK8/ MFX (10 ),MFY (10 ) ,MUX( 10) , MUY (10 ), MBX I 10),HBY( 101 G 15 

COMMON /BLK9/ DDPC ( 10, 100 ) , EE YTH ( 10, 100) G 16 

COMMON /BLK15/ RP( 100) , RT ( 100) G 17 

COMMON /BLK18/ AKK(IO) G 18 

COMMON /BLK19/ DX(IOO) G 19 

COMMON /BLK22/ W(100) G 20 

DO 10 1*1, N G 21 

CT=PB0W(I)*3. 19159/180. G 22 

BX(1)*B0W(1) *CCS ( CT ) / 1000 • G 23 

10 BY ( I ) *B0W ( l )*S IN(CT ) /1000 » G 29 

TC=(BX(2)-BX(1))/DX(1) G 25 

T0 = (BY(2)-BYll))/DXm G 26 

BXA(1)*ATAN(TC) G 27 

BYA(1)=ATAN(TD) G 28 

TC*(BX(N)-BX(N-1) )/DX(N-l) G 29 

TD=(BY(N)-BY(N-1))/DX(N-1) G 30 

BXA(N) =ATAN(TC) G 31 

BYA(N )*ATAN(TD) G 32 

Kl*N-l G 33 

DO 20 1*2, N1 G 39 

TC=(BX(I+1)-BX(I-1))/CDX(I-1)+DX(I)) G 35 

TD=(BY(I+1)-BY(I-1))/(DX(I-1)+DX(I)) G 36 

B XA ( I ) * AT AN ( T C ) G 37 

BYA(I )*ATAN(TD) G 38 


329 



20 

CONTINUE 

G 

39 


00 60 I = 1> NNC T 

G 

40 


X C I > =0 • 

G 

41 


Y C 1 1 = 0 . 

G 

42 


GO 40 J=1,NNCT 

G 

43 


Z(I>J>=0. 

G 

44 


DO 30 K= 1* NB 

G 

45 


L = U6D(K) 

G 

46 

30 

Z( I » J ) =Z ( I j J )-DDPC ( I,l)+AKK(K)*DOPC< J,L) 

G 

47 

40 

CONTINUE 

G 

48 


DO 50 K=1»N 

G 

49 


X( I»=XC1 >+(ODPC ( I»K)*W(K)*BX CK I+EEYTH ( I , K ) *R T ( K I *BX A< K )) /3B6.4 

G 

50 

50 

Y< n=Y(I) + (DDPC<I,K)+W<K)*BY<KH-EEYTH< I, K > *RT ( K ) *B YA ( K ) ) /386. 4 

G 

51 

60 

2 1 1# I ) = Z( l j 11 +{ CRT U) *0.10471971**2 

G 

52 


DO 70 I=1*NNCT 

G 

53 


MBX( I) =0. 

G 

54 


PQY( n-o. 

G 

55 


DO 70 J=1,NNCT 

G 

56 


MBX ( I )-MBX(I) + Z(I.»J)*X(J) 

G 

57 

70 

MBY(I)-MBY(1)+Z(I>J)*Y(J) 

G 

58 


RETURN 

G 

59 


END 

G 

60- 
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SUBROUTINE TMODE2 (T» DELTAT* SPEED# NKt H 1 

* **********************♦♦♦************«***********+*♦*******♦♦***♦ h 2 

THIS SUBROUTINE CALCULATES THE MODAL COEFFICIENTS FOR TRANSIENT H 3 
RESPONSE ANALYSIS H A 

****************************************************************** h 5 
REAL HBX*MBY H 6 

REAL KXX*KXY*KYX*KYY#MFX*MFY*MUX*MUY#KHX*KMY H 7 

COMMON /BLK1/ N#NB* NNLIN*NHB*NF*NU#NS*NBOW* I STAB# INODE# ISKU#NNCT#N H 8 
1UFPT H 9 

COMMON /BLK2/ ISKIP*NSTEP*NCYCLE#NITP#NINT#NPLOT*NORBIT#rmi1E#NSPE H 10 
1 ED* NINC# NDPT * NT H 11 

COMMON /BLK3/ CRT CIO)# LLBO( 101 # LLNB ( 5 ) * LLNMB 1 9 ) * LLSK CIO )«LLNT( 101* H 12 
1 LLUF ( 10 ) * LLFF ( 10)#LLUT(10) H 13 

COMMON /BLK5/ UX< 101# UY <10 )*FX ( 101 #FY< 101 # FSKMOt# PSK(IO) H 1* 

C OMMON 7BLK6/ BOW <100 )* PBOUt 100) #X IDC( 100 ) # YIDC < 100 ) * VXIDC <100 )# VY H 15 
1 IOC ( 100) *BXA ( 100 )* BY A I 100) H 16 

COMMON /8LK7/ CMX < 10* 10 )* KMX < 10* 10 ) # EMX < 10# 10 )*CKY < 10* 10) *KMY< 10*1 H 17 
101 # EM Y C IO# 10 ) H 18 

COMMON /BLK8/ MFX ( 101 * MFY 110 1 * MUXUO l*HUY CIO) #HBX < 101 * MBYI 101 H 19 

COMMON /BLK9/ DDPC <10*100 )#EEYTH { 10* 100) H 20 

COMMON /BLK11/ OOX < 10, 10 ) , DOY < 10* 10 ) * EOX< 1G, 10 ) * EOY ( 10* 10 I H 21 

COMMON /BLK15/ RP < 100 ) » RT < 100 ) H 22 

COMMON /BLK16/ SPEED2# ANGSP# ANGACL#F SPEED H 23 

COMMON /BLK1B/ AKK(IO) H 24 

COMMON /BLK21/ DMXC 10*101* OMY ( 10* 10 ) H 25 

COMMON /BLK29/ PASP H 26 

PI=3. 14159 H 27 

ANGSP=SPEED*P 1/ 30 • H 28 

DO 10 I=1*NNCT H 29 

MUX (I ) = 0» H 30 

MUYC I) =0, H 31 

MFX ( I ) *0* H 32 

MF YC I ) *0 • H 33 

IF (NU.EQ.O) GO TO 40 H 34 

DO 30 I* 1* NU q H 35 

J S LLUF < I ) fc g H 36 

PHI = ATAN2 (UY ( I ) *UX ( I } ) fifS H 37 

OMT=ANGSP*T+PHI & % H 36 

& K 


IF <NK.EG.O) OMT=PASP+PHI 
iME»<uxm*jJxm+uYm*uYm )**o.5 
IF (MK.EU.O) GflT = P ASP + PHI 
TME=tUX(I )*UX(I)+UY ( I |*UY C I ) I ♦*'0« 5 
DO 20 K=1,NNCT 

PUX(K)=MUX(K)+(ANGACL*SIN(QMT)+ANGSP*ANGSP*COS(OMT) >*THE*DOPC <K, J ) 
hUY(K)-MUY(K)+(ANGSP*ANGSP*SI NtQMT )-ANGACL*CGS ( OUT 1 )*TKE*DDPC< K» J ) 
CONTINUE 

IF CNS.EQ.O) GCi TO 6C 
1IME=T 

00 50 1=1, NS 
KK=LLSK( I ) 

CAN=ANGSP*TIME+PSK (I >757.29578 
IF (NK.EQ.O) CAN=PASP+PSKC I) 757.29578 
DO 50 J*1,NNCT 

MUX ( J ) =MUX ( J ) ♦( ANGSP + ANGS P*COS (C Afi I + ANGAC L*S IN( C AN>) *FSK (II * ( RP ( KK 
l)-RT(KK) )*EEYTH< J,KKI 7386.A 

KUY ( J ) =MUY ( J ) + ( ANG5P +ANGS P*S IN£ C AN )-ANGACL+COS(CAN) >*FSK( I ) *(RP(KK 
l)-KT(KK) )*E£YTH(J,KK)7386.A 
IF (NBOW.EO.O) GO TO 80 
DO 70 I=1,NNCT 

TM AG= C.M8Y (I) **2 + MBX (I) **2 ) **0 . 5 
ANG=ATAN2(MBY( I),MBX< I) ) 

TANG=ANG+T*ANGSP 
IF (NK.EQ.O) TANG=P ASP+ANG 
NUX(I)=MUX(I)+T KAG*COS ( TANG ) 

KUY(I >=MUY(I >+TKAG*SIN(TANG) 

CONTINUE 

IF (NK.EQ.l) GO TO 100 
DO 90 K=l, NNCT 
DO 90 L=l, NMC T 
EHX(K,L>=EOX(K,l> 

EMY(K,L) = ECY(K,U 
DMX(K, L l-DOX (K» L ) 

DMY(K,U=OOY(K, L ) 

DO 90 J = 1,N 

EKX (K,U*EMX(K,L)+0.5*ANGACL*RP( J)*EEYTH(K, J )*EEYTH(L* JI/306.A 
EHY (K,L ) = EM Y(K,L > -0 • 5*ANGACl*RP( J )*EEYTH( K» J ) *EEYTH{ L> J ) 7386. A 


H 39 
H AO 
H 39 
H AO 
H A1 
H A 2 
H A3 
H AA 
H A5 
H A 6 
H A 7 
H A8 
H A9 
H 50 
H 51 
H 52 
H 53 
H 5A 
H 55 
H 56 
H 57 
H 58 
H 59 
H 60 
H 61 
H 62 
H 63 
H 6A 
H 65 
H 66 
H 67 
H 68 
H 69 
H 70 
H 71 
H 72 
H 73 
H 7A 
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DKX(K#LI*DKXCK,L)+AHG5P*RPI J)*FEYTH(K, J)*EEYTH(UJ)/3e6.4 H 75 

90 GKy<K>L)*0Hy(K#U-ANGSP»SP(,J)*££YTH<K,J»*£EYTHtUJJ/386.4 H 76 

SPEED-SPEED* 30 **AMGACI*DELTAT/PI H 77 

100 CONTINUE H 78 

RETURN H 79 

END H £0< 
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SUBROUTINE T ACCEL I I 

*********♦*********************♦*******♦****++*+*♦*♦*******♦*+**** I 2 
THIS SUBROUTINE CALCULATES THE MODAL ACCELERATION BY SOLVING I 3 

THE MODAL EQUATIONS OF MOTION I 4 

***************> fr********************************************)****** I 5 
PEAL KXX, KXY, KYX, KYY# HFX, HFYf MUX, MUY# KMX, KMY I 6 

COMMON /BLKI / N*NB, NHL IN, NMB> NF , NU, NS# NBOW, I ST AB» IMODE * ISKUfNNCT, N I 7 
1UFPT I B 

COMMON /BLK3/ CRT ( 10 J , LLBDt 10) # LLNB ( 5 ) # LLNMB C 9 ) » LLSKC 10) ,LLNT( 10), I 9 
1 L LU F ( 10 ) >L L F F ( 1 G ) , L L UT (1 0 ) I 10 

COMMON /BLK7 / CMX ( 10, 10) , KMX <10, 10 ), EMX l 10* 10) ,CHY( 10# 10),KMY(10, 1 I II 
10 )>EMY< 10,10) I 12 

COMMON /BLK8/ KFX (10 ) , MF Y ( 10 ) ,MUX( 10) , HUY ( 10 ), KBX ( 10 ) ,HBY (10) I 13 

COMMON /BLKW DDPC UO, 100) , EEYTH(10,100 ) I 14 

COMMON /BLK20/ A1 ( 2, 10 ) , A2 ( 2, 10 ) , A3 C 2, 10) , B1 ( 2, 10 ), B2 ( 2, 10 B3 ( 2,1 I 15 
10) * I 16 

COMMON /BLK2.1/ D MX ( 10, 10 ) , DMY C 10, 10) I 17 

IF (NNLIN.E0.0) GO TO 10 I 16 

CALL BNF I 19 

10 CONTINUE I 20 

DO 30 I=1,NNCT I 21 

Al(l»l)=MFX(I)+hUX(I)— (CRT(I)*0.10471975) **2 *A3 ( 1, I ) I 22 

B1U»I)*HFYU ) + MUY (I )-(CRT (I) *0. 10471975) **2*B3 <1, I) I 23 

DO 20 J=1,NNCT I 29 

Al(l, I)*Al(l»l)-CMX(I, J)*A2<1, J)-KMX(I,J)*A3{1>J)-DHX(I, J)*B2U, J) I 25 
1-EMX ( I, J) *B3 ( 1, J ) I 26 

20 Bi(l»I) = Bld,l)-CMY(I»J)*B2(l,J) -KMY (IfJ)*83(l,J)-DKY{IfJ)*A2(lfJ> I 27 

1-£MY< I, J )*A3 (1, J ) I 28 

30 CONTINUE I 29 

RETURN I 30 

END I 31- 



i 

i 

\ 

i 


ii 




334 






C 

c 

c 

r 


10 


20 


SUBROUTINE TINTG ( NNCT* OELTAT ) 

*+*+ 4 * 4 ******* +**++* 4 +*+ 4+4*4* 4 * + 4 + 4 + 4 +++++ * *4**4*4***44*444444+44 

THIS SUBROUTINE INTEGRATES THE MODAL ACCELERATION INTO VELOCITY 
AND DISPLACEMENT BY MODIFIED EULER METHOD 

*4 **************************************************************** 

COMMON /BLK2/ I SKIP, NSTEP* NCYCLE# NITP#NINT# NPLOT> NORBIT+NTIME* NSPE 
1ED,NINC,N0P1,NT 

COMMON /BLK20/ A1 (2, 10 ) , A2 ( 2, 10 ) > A3( Z» 10) j BI< Z, 10) , B2C 2# 10 ) *B3 C Z » 1 

ioi 

DO 10 I*1#NNCT 

A2 (2» I ) *A2 (1> I J +DELT AT*A1 C 1» I ) 

B2(2, I)=B2(1,I>+DELTAT*B1(1, I) 

A3X2* I)=A3(1,I) + DELTAT*0.50*{A2(1#I ) + A2(2* IM 
B3 {2 # I ) e B3{ 1» I l+DELTAT+O « 50* ( B2 I 1+ I l+B2( 2# I ) ) 

DO 20 I = 1# NNCT 


A1<1,I)=A1(2,I1 
A2( 1* I ) *A2 (2# I ) 
A3(l, I)«A3(2,I) 
B1 ( 1* I ) = S1 ( 2# I ) 
B2(1>I)*B2{2#I) 
B3 C 1» I)=B3<2,I ) 
RETURN 
END 



J 

J 

4 

4 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

4 

4 

4 

4 

4 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
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SUBROUTINE TBETA ( NNCTf DELTATf BETA ) K 1 

**♦**♦4 **♦***++***+******************** ****************** ********* K 2 

THIS SUBROUTINE INTEGRATES THE MODAL ACCELERATIONS INTO MODAL K 3 

VELOCITY AND DISPLACEMENT BY NEWMARK BETA METHOD K A 

44444 *444 444*44 4 + 4 * ****** I***************************************** K 5 

DIMENSION STORE (6*10) K 6 

COMMON /BLK20/ A1 ( 2# 10) # A2 <2* 10 ) , A3( Z, 10) fBl (2fl0 )> B2 l 2 t 101 t B3 iZt 1 K 7 

10 ) K 8 

DO 10 I=1,NNCT K 9 

STORE C If I)=Altl*I) K 10 

STORE ( 2* I )=B 1 ( 1 #I) K 11 

STORE ( 3> I ) s A2( If I ) K 12 

STDR£(AfI)=B2(lfI) K 13 

STGRE(5fI)=A3tlfI) K 1A 

ST0RE(6*I ) = B3 ( 1 » I ) K 15 

00 20 I= 1 ,NNCT K 16 

A2(l»I)=STQRE(3fI)+DELTAT*ST0REClfI) K 17 

B2(l» I ) =STORE ( Af I T+DE LTAT*STORE (2f 1 ) K 18 

A3tl, II=ST0RE(5f I>+.5+OELTAT+(STOREJ3f l) + A2(l#I)l K 19 

B3 (If I ) = STORE ( 6 * £ ) + .5+DEL TAT* C STORE (Afl)+B2tlfl)) K 20 

CALL TACCEL K 21 

DO 30 I=lf NNCT K 22 

A 2 ( 1# 1 1 -STORE (3 » I ) + • 5*DELTAT*( Al( It 1 1 + STORE ( 1# 1 1 1 K 23 

B2(lf I)=STOREtA* I)+.5*DELTAT*(BlClf I J+STORE ( 2f I M K 2A 

A3(l,I)=STORE(5f I ) +DE LT AT+STORE ( 3, I )+( . 5-BETA) *STORE {1» I >*OELTAT*D K 25 

lELTAT+BETA*DELTAT*DELTAT*Al(lf I) K 26 

B 31 1* I J = STORE ( 6 f I ) + DELTAT + STORE C A» I ) + ( # 5-BETA J+STORE (2f 1 1*0ELT AT*D K 27 

l£LTAT+BETA*DELTAT*DELTAT*Bl(lf I) K 28 

A3(2> I)-A3(lf I) K 29 

B3 (2f I ) = B3 ( 1# I ) K 30 

RETURN K 31 

END K 32- 



: 1 

-i 

1 
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SUBROUTINE TINC L 

****************************************************************** L 
THIS SUBROUTINE TRANSFORMS THE ROTOR INITIAL CONDITIONS INTO L 

MODAL INITIAL CONDITIONS OF VELOCITIES AND DISPLACEMENTS L 

**************** ************************************************** L 

DIMENSION XTH(IOO), YTH( 1001 » VXTH(IOO)# VYTHUOO) L 

COMMON /BLK1/ N* NB* NNL INjNMB # NF j NU» NS # NBOW* 1ST AB* IMODE* ISKU#NNCT#N L 

1UFPT *■ 

COMMON /8LK6/ BOW ( 100 ) 9 PB 0W< 100) t XIDC < 100 )* Y IOC C 10n ) , VX IOC C 100 ) 9 VY L 

1IDC<100),BXA<100WBYA(100) L 

COMMON /BLK9/ DDPC C 10* 100 it EEYTH < 10, 1 00) L 

COMMON /BLK15/ RP ( 100 ) , RT ( 100) L 

COMMON /BLK19/ DX (100 ) l 

COMMON /BLK20/ A1 ( Z» 10 ) t A 2 1 Z , 101 $ A3 i Z» 10 ) t B H It 10) » B2 C 2*10) t B3 1 2* 1 L 

10) L 

COMMON /BLK22/ WC100) L 

TC=(XIDC(2)-XIDC(1> )/OXII) L 

TO* (Y IDC <2 J-YIDC ( 1) ) / D X C 1 > L 

TE*CVXIDC(2)-VXIDCU))/DX(1) L 

TFMVYIDC(2)-VYIDCU))/DX(1) L 

XTH<1)=ATAN(TC) L 

YTHt 1 ) =ATAN< TD) l 

VXTHt 1 ) =ATAN1TE ) L 

VYTHC 1)» ATANC TF ) *- 

TC = ( XIOC (N)-XIDC CN-1 ) ) /DX (N-l ) L 

T0=(YIDCCN)-YIDCCN-1) )/DX( N-I ) l 

TE=( VXIDC (N)- VXIDC (N-l) ) /DX( N-l I L 

T F • C VYIOC (N)-VYIDC IN-1 ) )/DX(N-l) L 

YTH(N)=ATAN(TD> L 

XTH(N)=ATAN( TC) L 

VXTH(N)*ATAN(T£) t 

VYTHC N) *ATAN(TF ) L 

N1=N-1 *- 

DO 10 I *2# N1 L 

TC - ( X IDC (I + D— XIDC(I-1))/(DX{ I— 1 ) + DX < I ) ) L 

TO*(YIDC( I+1)-YIDC< 1-1)1/ C DX ( I-D + DXII) ) L 

TE*( VXIDC (I + D-VXIDCC I— 1) )/(DX(I— D+DXCIl ) L 

TF*(VYIDC( 1 + 1 1 — VYIOC ( X — 111 /<DX(I-1)+DX(I) ) L 


1 

2 

3 

A 

5 

6 

7 

B 

9 

10 

11 

12 

13 

1A 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2A 

25 

26 

27 

28 

29 

30 

31 

32 

33 
3A 

35 

36 

37 
36 
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20 


XTHC1)=ATAN<TC J L 

YTH ( I )= ATANI TD ) L 

VXTH C I ) = AT AN ( TE ) L 

VYTH ( I ) =ATAN ( TF ) L 

CONTINUE L 

DO 20 I*1,NNCT L 

A3 (1*1 ) = 0» L 

B3 ( 1*1 ) = 0. I* 

A21 1* X ) =0 • L 

62 ( 1* 1 ) *0. L 

DO 20 J-lfN L 

A3(l* I)*A3(1*I)+(DDPC(1* J1*W( J)*XIDC(J ) +EEYTH ( I* J ) *RT< JI*XTHCJI)/3 L 

186. A L 

83 ( 1* X ) S B3( 1* n + (DDPC ( I > J ) *W W i +YIDC ( J)+EEYTHU* J)*RT< J)*YTHIJ 11/3 L 

186. A L 

A 2 <i*n=A 2 (l*n+( 0 DPCU»J>+W( J**VXIDC( J) + EEYTH(I*J)*RTUI*VXTH<jn L 

1/386. A L 

B2(1*1) S B2(1*I > + {00 PC ( l t »*VYIDC( JJ + EEYTHU* J)*PT( J»*VYTHJ J)l 1 

1/366. A L 

RETURN L 

END L 


39 

AO 

A1 

A2 

A3 

AA 

A3 

A6 

A7 

A8 

A9 

50 

51 

52 

53 
5A 

55 

56 

57 

58 
59- 


i 

J 
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SUBROUTINE TSTORE ( NNCT , ICOUNT* XMA X, YM AX ) 
****************************************************************** 
THIS SUBROUTINE STORES THE MODAL DISPLACEMENTS FOR EACH TIME 
STEP INTO THE STORAGE BLOCK 

****************************************************************** 
COMMON /BLK3/ CRT ( 10 ) ,LLBD ( 10) * LLNB ( 5 ) * LLNMB ( 91# LLSKUOI * LLNTI 10) * 
1LLUF<10),LLFF(10),LLUT(10) 

COMMON /BLK9/ ODPC( 10* 100) * EEYTHtlO* 100 ) 

COMMON /BLK20/ A1 (2* 101 » A2( 2* 101 * A3 (2* 10) * Bl( 2* 10) * B2C 2*101 #B3(2*1 
10 ) 

COMMON Sl(A001),S2(A0Oi) 

SI ( 1C DUNT ) =0 • 

S2 ( ICOUNT ) =0 . 

J*LLNT ( 1 ) 

00 10 1*1* NNC T 

SI ( ICOUNT ) = S 1( ICOUNT) +DDPC ( I* J)*A3( 1* 11*1000. 

S2< ICOUNT ) *S2 (ICOUNT l+DDPCI I* J)*B3( 1*1 >*1000. 

X=ABS ( SI l ICOUNT) ) 

Y*ASS(S2( ICOUNT)) 

IF (X.GT.XMAX) XM AX=X 
IF (Y.GT.YMAX) YMAX*Y 
RETURN 
END 


M 1 
M 2 
M 3 
H A 
M 5 
M 6 
M 7 
M B 
M 9 
M 10 
M 11 
H 12 
M 13 
M 1A 
K 15 
M 16 
M 17 
H 18 
M 19 
M 20 
M 21 
H 22 
H 23- 
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SUBROUTINE BNF N 1 

*****+**********♦************♦*********** 1 ************************* N 2 

THIS SUBROUTINE CALCULATES THE NONLINEAR BEARING FORCES FOR EACH N 3 

TIME STEP . THE BEARING USED ARE ASSUMED TO BE SHORT JOURNAL N 9 

BEARING 180 OEG. CAVITATED FILM OR WITH 360. OEG FLUIO FILM. N 5 

THIS CAN ALSO BE USED TO APPROXIMATE STRAIGHT SEAL FORCES. N 6 

****************************************************************** N 7 

REAL LEN N 6 

REAL MFX,MFY N 9 

REAL KXX,KYY N 10 

COMMON /BLK1/ N> NB# NN L IN, NMB#NF# NU# NS#NBOW» I STAB* IMODE* ISKU#NNCT# N N 11 

1UFPT N 12 

COMMON / BLK.3/ CRT ( 10 ) , LLBD (101 #LLNB (5 )» LLNMB (9 ># LLSK (10 ># LLNT C 10 )# U 13 

lLLUF(10>#LLFFtl0)»LLUT(10> N 19 

COMMON /BLK4/ K XX (10 ) # KXY ( 10 ) #KYX C 10) #KYY ( 10) , CXX (1 0 J » CXY C 10 ) #C YX ( N 15 

110)#CYY<10)#SLNMB19# 4, 4 > , C LNMB< 9# 4#4 ) N 16 

COMMON / 8LK8/ M FX { 10 ) , MFY C 10 ) , MUX( 10 1 # MUY ( 10 ) # MBX (10), MBY ( 10 ) N 17 

COMMON /BIK9/ DDPC ( 10# 100 ) , EEYTHC 10# 100) N 18 

COMMON /BLK16/ S PEED2# ANGSP# ANGACL# F SPEED N 19 

COMMON /BLK 1 8/ AKK(IO) N 20 

COMMON /BLK20/ A1 (2# 10 1 # A2 (2# 10 )# A3(2# 10) ,B1( 2# 10) # 62(2*10 ) # B3 12# l N 21 

10) N 22 

COMMON /BLK35/ WMY ( 10) # VI S ( 5 }# R( 5 )# LEN C 5 > # C I 5 ) # NLB ( 5) N 23 

00 10 1 = 1# NNCT N 29 

MFX ( I ) =0. N 25 

10 MFY ( 1 ) =0. N 26 

DO 70 I*t#NKLIN N 27 

F X «0 . N 28 

F Y=0. N 29 

L~ LLNB ( I ) N 30 

X=0. N 31 

Y*0. N 32 

VX=0. N 33 

VY = 0. N 39 

DO 20 J=1#NNCT N 35 

X=X*A3(1#J)*DDPC< J#L) N 36 

Y=Y+B3 11# J )*DDPC 4 J# L ) N 37 

VX=VX+A2C1# J)*O0PC( J#L) N 38 
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VY»VY+B2(1»J)*DDPC(J*U N 39 

20 CONTINUE ' N *° 

D=X+X+Y*Y N 41 

IF C0.LT.1.E-12) GO TO 50 N 42 

S0«0. N 43 

0EU=O. M 44 

SD=SQRT (D ) N 45 

U=X*VX+Y*VY N 46 

DU=C«I)*SD*ANGSP N 47 

OEU-U/DU N 48 

EU*SD/C(I) N 49 

IF (EU.GT.l.J EU* *99 N 50 

PH IDQT« ( X*VY-Y+VX ) / t ANGSP*0) N 51 

P 1 = 3 * 14 159 M 52 

TEST=(l*-2** PHI DOT ) N 53 

SIGN=1. M 54 

S IGN1= 1* N 55 

IF (TEST.LT.O.) $IGN*-1. N 56 

IF (OEU.LT.O.) SIGN1— 1. N 57 

CS=EU*ABS(TEST)/S0RTCEU*EU*TEST+*2+4.*0EU*0EUl N 58 

AS*(l.+EUI/tl.-EU) N 59 

IF ICS.EQ.O.) GO TO 30 N 60 

U=SQRT (. (1*— CS )/ < l. + CS ) 1 M 61 

GO TO 40 N 62 

30 U = 0. N 63 

40 CONTINUE N 64 

TIl=SIGN*4.*£U*CS**3/m.-EU*EU*CS*CSI**2» N 65 

C1 = U.-EU*EU> N 66 

C2=t3.-5.*A$*AS ) N 67 

O O C3=(5.-3.*A$+AS) N 60 

T A = ATf'.N C U* ( AS* AS—1* 1 1 J AS* ( 1* +U*U) ) ) N 69 

OS C4=(1.+2.*EU*EU) N 70 

C0N=PI*C4/ IC1**2.5) N 71 

59 B C0N2=(C2*U*U+C3*AS*AS)/(U*U+AS*AS)**2+(C2+C3*AS*AS*U*UW(1.+AS*AS* N 72 

§glU*U>**2 N 73 

t 6 TI2=C0N+SIGN1*<2**C4*TA/(C1*+2*51 -U+C0N2/ I C 1**2 1 ) N 74 

® C0N=2. /C 1**1* 5 N 75 

& T 13*C0N+ CPI/Z.+SJGN1*{TA-AS*U*C U+U-AS+AS ) / (U*U+ AS*AS ) **2— AS*U*C 1 •” N 76 


1AS*AS*U*UW <l.*A$*AS*U*Ur**2) J 
SDhi'VIS ( l ) *ANGSE*2**R ( I)*LEN( I ) **3/ < 8 « *C II )*C ( I ) ) 
F1=S£M*<EU*TE$T*TI1+2.*DEU*TI2> 

F2-S0M* (EU*T£ST*T I3+2.*DFU*TI1 ) 

FX«— (F1*X*F2*Y ) / SO 
F Y*'(F2*X— F.1*Y) /SO 
CONTINUE 
IO*NtBCI) 

FX=FX+KXX(ID)*X+AKM IDl+X 
FY«FY+KYY( 1D»*Y+AKK ( ID )*Y 
00 60 K = 1/NNC T 
;.FX(K)=NFX(K)+FX*DDPC(K,l ) 
fJFYTK ) -KF Y (K ) + FY*DDPC (K* L ) 

CONTINUE 

RETURN 

END 


N 77 
N 78 
N 79 
N 80 
N 81 
N 82 
N 83 
N 84 
N 85 
N 86 
N 87 
N 88 
N 89 
N 90 
N 91 
N 92- 


SUBROUTINE OBPLOT (XMAX, YMAX,NLPT, IO,NSTEP, IJ ) 
****************************************************************** 


THIS SUBROUTINE PLOTS THE TRANSIENT ORBITS IN X AND Y DIRECTIONS 
****************************************************************** 


COMMON /BLK28/ AL1(8 ) ,AL2 ( 8 » , AL3 (0 1 
COMMON /BLK39/ NSPD, SSPEED < 10 > 

COMMON SX(4001),SY(4001) 

CALL PLOT (15. ,5., -3) 

CALL SYMBOL (-3. 0,-4. 00# . 105# AL1,0.0,80 l 
CALL SYMBOL ( -3 .0,-4 .25, . 105, AL2, 0. 0, 80 ) 

CALL SYMBOL (-3. 0,-4 . 50, . 1 05, AL 3, 0. 0* 80) 

CALL SYMBOL {-3. ,-4 . 75, . 105, 25HR0T0R SPEED* 

CALL NUMBER < -1.9, -4 . 75, . 105, SSPEED < I J ) , 0 . , 4HF6 .0 ) 
C x AMAXl < XMAX, YMAX) 

G-l. 

IF (C.LT.l.) 6*10 . 

B=C*G/3.+l. 

D=AINT(B ) /G 
E=-3.*D 

CALL AXIS t-3.0,-3.0,llHY-DIRIMILS),ll,6.0,90.0,E,D) 
CALL AXIS (-3.0,-3.0,llHX-DIR(HIL$),-ll,6.0,0.0,E,D) 
CALL PLOT (3., -3. ,3) 

CALL PLOT (3. ,3. ,2) 

CALL PLOT (-3. ,3., 2) 

CALL SYMBOL ( 1 .0, 3.25, . 14 , 1 \HS TATION NO. ,0.0,11) 

CALL NUMBER ( 2 .2, 3 . 25 , . 14, ID, 0 .0, 2HI 3 ) 

KK=1 
J J*0 

DO 30 J-1,NLPT 
X * S X ( J ) 

Y-SY ( J ) 

X = X/D 
Y = Y/0 

IF (J.NE.l) GO TO 10 
CALL PLOT 0',Y,3) 

CALL PLOT ( X » Y , 2 ) 

IF W.EG.KK) GO TO 20 
GO TO 30 


& O 

#1 
£> & 


RPM,0 .,25 ) 


0 1 
0 2 
0 3 
0 4 
0 5 
0 6 
0 7 

o e 

0 9 

o 10 
0 11 
□ 12 
0 13 
0 14 
0 15 
0 16 
0 17 
0 18 
0 19 
0 20 
0 21 
0 22 
0 23 
0 24 
0 25 
0 26 
0 27 
0 26 
0 29 
0 30 
0 31 
0 32 
0 33 
0 34 
0 35 
0 36 
0 37 
0 38 
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2 C CALL SYMBOL l X, Y> . 0875 » 11 » 0 . , -1 ) 0 39 

CALL PLOT ( X > Y j 3 ) 0 AO 

JJ=JJ+1 0 41 

KK=J4*NSTEP+1 0 42 

30 CONTINUE 0 A3 

CALL NEKBLQK 0 44 

RETURN 0 A 5 

END 0 A 6- 



■A 











344 


SUBROUTINE TMPLGT ( XMAX* YMAX* NLPT* ID* FTIMt*NSTEP ) 

************ ****************************************************** 
THIS SUBROUTINE PLOTS TRANSIENT RESPONSE AMPLITUDES VS REAL TIME 
************ ******************************* *********************** 
COMMON /BLK16/ SPEED2*ANGSP* ANGACL* FSPEED 
COMMON /BLK28/ AL1C 8 1 * AL2 ( 8)# AL3 < 8) 

COMMON SX(4001)*SY(4001) 

C = AM AX 1 (XMAX* YMAX ) 

6*1 • 

IF (C.LT.l.) 6*10. 

B=C*G/2 • *1 • 

D=AINT(B)/G 

CC=-2.*D 

CALL PLOT (5.*2.*-3) 

E*FTIME*1000./6.+l. 

F*AINT (E ) /TOGO. 

CALL AXIS (0»0*0.0*15HTIME IN SECONDS*— 15*8 .0*0. 0*0.0* F) 

CALL AXIS TO. 0*0. 0*23HR0T0R 01 SPLACEMENT-MILS*23*4.*90.*CC*D) 

CALL PLOT <0. ,2.0*3) 

CALL PLOT 16.0*2.0,2) 

CALL SYMBOL tO.0,-1.1*. 105* AL1*0. 0*80) 

CALL SYMBOL ( 0. 0,-1 . 3* • 105* AL2* 0.0* 80) 

CALL SYMBOL C 0. 0*-l .5* .105* AL3*0.0, BO) 

CALL SYMBOL (3. 5* 4.0* .14* 11HS TATION N0.*0.*11) $ 

CALL NUMBER (4. 7*4.0* . 14* I0*0.0*2HI3) 

CALL SYMBOL (6. 0*3. 8*0. 105*12HX* *Y«,0.*12) I' 

CALL SYMBOL t 6.4* 3.9* 0.105* 11* 0. *-l ) 1 

CALL SYMBOL ( 7. 3* 3.9* 0.105*2 *0. *-l ) 

M*0 

CONTINUE 
JJ = 0 
KK~1 
TIKE-O. 

SPEED*SPEED2 
STEP*NSTEP Q 

DELTAT-O. & § 

DO 50 I = 1*NLPT ?S 

TIME«TIKE+DELTAT § % 



P 1 
P 2 
P 3 
P 4 
P 5 
P 6 
P 7 
P 6 
P 9 
P 10 
P 11 
P 12 
P 13 
P 14 
P 15 
P 16 
P 17 
P 18 
P 19 
P 20 
P 21 
P 22 
P 23 
P 24 
P 25 
P 26 
P 27 
P 28 
P 29 
P 30 
P 31 
P 32 
P 33 
P 34 
P 35 
P 36 
P 37 
P 38 


u> 

Ut 


1 

1 

T = TI ME 

SPEED=SPEED+DELTAT*ANGACL*9.54929 
X*SX(IJ 
T = T/F 
Z=X /D + 2. 

n=ii 

IF tn.EG.O) GO TO 20 
Y«S Y ( I ) 

Z-Y/0+2 • 

N = 2 

20 CONTlNOc 

IF U.NE.1J GU TO 30 
CALL PLOT ( T# Z* 3 ) 

30 CALL PLOT (T,Z#2) 

IF (I.EG.KK) GO TO AO 
GO TO 50 

AO CALL SYMBOL C t#2* , C7#N»0.»-1 ) 

DELTAT*60./<SPEED*STEP) 

JJ=JJ+l 
KK S J J*NSTEP+1 
50 CONTINUE 

IF (M.EG.l) GO TO 60 

M = 1 

GO TO 10 
60 CONTINUE 

CALL NEWBLOK 

PETURN 

END 



P 39 
P 40 
P 41 
P 42 
P 43 
P 44 
P 45 
P 46 
P 47 
P 46 
P 49 
P 50 
P 51 
P 52 
P 53 
P 54 
P 55 
P 56 
P 57 
P 58 
P 59 
P 60 
P 61 
P 62 
P 63 
P 64 
P 65 
P 66- 
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SUBROUTINE TEFT (CC#NSTEP) 01 


SUBROUTINE TEFT (CC#NSTEP) 01 

C ******************¥************#*♦***********************#♦*#***** Q 2 

C THIS SUBROUTINE SAMPLES DATA FOR THE FAST FOURIER TRANSFORMATION 0 3 

C ****************************************************************** q 4 

DIMENSION A(1024)# 8(10241# CCI512) 0 5 

COMMON SK4001 )#S2(4001J Q 6 

DO 10 I =1 #1024 07 

A(I)«0. 0 6 

10 BCII*0. Q 9 

N-NSTEP/10 Q 10 

M*NSTEP*4+1 0 11 

DO 20 1*1# 160 0 12 

J= C I— 1 1 *N+M 0 13 

20 A(I)*S1(J) 0 14 

CALL DFT ( 10# 1024# 3# A# B ) Q 15 

DO 30 I=l#512 0 16 

C = SQR T (A ( I )*A ( 1 1 + B ( I ) *B ( I ) } 0 17 

CCII»«C 0 18 

30 WRITE (3,40) I#C Q 19 

RETURN 0 20 

C 0 21 

40 FORMAT { 5 X# 15# 5X# F 1 5. 5 ) 0 22 

END 0 23- 
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SUBROUTINE DFT ( N PWR2 , N, NT YP E, XR E, XI MI R 1 

.MENS ION XRE (N ) » XIH(N) R 2 

******** ****** ******************************* ********************* R B 

CALCULATES FOURIER SERIES FOR OR FROM THE VECTOR X, WHOSE LENGTH R A 

IS N WHERE N = 2**NPWR2 R 5 

R 6 

DURING FOURIER ANALYSIS# THE INPUT VECTOR (XRE,XIM> REPRESENTS R 7 

CONSECUTIVE SAMPLES OF THE TIME FUNCTION X (N+DELTAT I R 8 

THE SUBROUTINE RETURNS THE COEFFICIENTS OF THE COMPLEX FOURIER R 9 

SERIES REPRESENTATION OF THE TIME FUNCTION R 10 

R 11 

DURING FOURIER SYNTHESIS, THE INPUT VECTOR (XRE,XIMJ CONSISTS R 12 

OF THE ABOVE MENTIONED FOURIER COEFFICIENTS. R 13 

THE SUBROUTINE RETURNS THE ORIGINAL TIME FUNCTION, SAMPLED AT R 19 

EVENLY SPACED INCREMENTS R 15 

R 16 

THIS SUBROUTINE ALLOWS A FORTY PERCENT TIME SAVING IF THE R 17 

TIME FUNCTION IS REAL OR IF THE FOURIER COEFFICIENTS ARE THE R 18 

COEFFICIENTS OF A PEAL FUNCTION R 19 

R 20 

FOR FOURIER ANALYSIS OF A REAL FUNCTION IT IS UNNECESSARY TO R 21 

INSERT ZEROS IN THE XIM LOCATIONS BEFORE CALLING THIS SUBROUTINE R 22 

R 23 

FOR FOURIER SYNTHESIS OF A REAL FUNCTION ONE NEED ENTER ONLY R 2A 

THE REAL AND IMAGINARY PARTS OF THE FIRST (ONE HALF N + 1) R 25 

FOURIER COEFFICIENTS THE SUBROUTINE AUTOMATICALLY ASSUMES R 26 

THAT THE REMAINING COEFFICIENTS ARE HERMIT IAN SYMMETRIC R 27 

R 2B 

NTYPE = 1 COMPUTE FOURTER ANALYSIS OF COMPLEX VECTOR X R 29 

NTYPE = 2 CONFUTE FOURIER SYNTHESIS OF COMPLEX VECTOR X R 30 

NTYPE * 3 COMPUTE FOURIER ANALYSIS OF REAL VECTOR X R 31 

NTYPE = A COMPUTE FOURTER SYNTHESIS OF REAL VECTOR X P 32 

R 33 

THIS SUBROUTINE SETS UP AND CALLS SUBROUTINE FFT R 39 

****************************************************************** R 35 

R 36 

DEFINE CONSTANTS R 37 


Li) 

-c* 

DO 


c 


R 38 


c 

DEFINE CONSTANTS 





R 

37 

c 






R 

38 


NPWM1=NPWR2-1 





R 

39 


N2*N/2 





R 

40 


N2P1=N2+1 





R 

41 


N2P2=NZ+2 





R 

42 


N4=N/4 





R 

43 


N4P1-N4+1 





R 

44 


N4P2=N4+2 





R 

45 


Z*N 





R 

46 


0 = 6.2831853/ Z 





R 

47 

c 






R 

48 

c 

GO TO PROPER STATEMENT NUMBER 

ACCORDING 

TQ NTYPE 

R 

49 

c 






R 

50 


GO TO ( 10* 20* 30*90 ) * NTYPE 





R 

51 

c 






R 

52 

c 

STATEMENTS 1*2 FOR A COMPLEX 

VECTOR X 



R 

53 

c 






R 

54 

10 

CALL FFT tl*NPWR2#N*XRE*XTHI 





R 

55 


RETURN 





R 

56 

20 

CALL FFT (0*NPWR2fN*XRE*XIM) 





R 

57 


RETURN 





R 

58 

c 






R 

59 

c 

STATEMENT 3 FOR FOURIER ANALYSIS 

OF A 

REAL VECTOR X 

R 

60 

c 

SEE RANDOL READ*S MA THESIS* 

ELECTRICAL 

ENGG* RICE UNIV# 1968 

R 

61 

c 

INSERT EVEN ELEMENTS OF XRE INTO 

X1M 



R 

62 

30 

DO 40 1*2# N* 2 





R 

63 


12*1/2 





R 

64 


IMl«l-l 





R 

65 


XIM( 12 )*XRE ( I ) 





R 

66 

40 

XRE ( 12 )*XRE ( IM1) 





R 

67 


CALL FFT (1*NPWM1#N2#XRE#XIM) 





R 

68 

C 






R 

69 

C 

SEPARATE THE OUTPUT INTO OOD 

AND 

EVEN 

PARTS WITH ADDITIONAL 

R 

70 

c 

DIVISION BY 2 





R 

71 


c R 72 

XREtl l-XREM) /2. R 73 

XRE(N2Pl)=XlM(l)/2. R 74 

X I H 1 1 ) = 0 • R 75 

X IN (N2P 1 ) =0 . R 76 

DO 50 I*2,N4P1 R 77 

J = N 2 + I R 78 

K-N2+2-I R 79 

XRE(JI=0*25’MXIP(I) + XIH(K) > R 60 

XIK(J) S 0*25M-XRE(I l+XPE (K ) ) R 81 

XRE(I)=0»25*(XRE(I)+XRE(K)) R 82 

50 XIM(I)=0»25*(XIK(I) — XIK(K)) R 83 

DO 60 I*N4P2,N2 R 84 

J*N2+ I R 85 

K= N2+2-I R 86 

L=N2+K R 87 

XRE (I)=XRE(K ) R 88 

XRE(J)-XRECL) R 89 

X IM( I )=-XIM(K) R 90 

60 XIKC J >=— XlfitL > R 91 

C COMBINE THE OFT*S OF ODD AND EVEN ELEMENTS R 92 

C R 93 

S AVE-XRE ( 1 ) -XRE ( N2P1 ) R 94 

DO 70 1*1, N2 R 95 

J = N 2 I R 96 

2-1-1 R 97 

ANGLE =Z*C R 98 

WRE-COS (ANGLE ) R 99 

W1K— SIN(ANGLE) R 100 

XRHl)»XRt« 1)+WRE*XREIJ1-W1H*XIH( J) R 101 

70 XIMI ) = XIM(1)+UK*XRE(J)+WRE*XIMW) R 102 

XRE ( N2P1 ) =SA VE R 103 

X I K ( N2P 1 J = C» R 104 

DO 00 I = N 2 P 2 , N R 105 

J=N+2-I R 106 

XRE( I) =XRE ( J ) R 107 

60 XlHtl)— XIK(J) R 108 

RETURN R 109 
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c 

STATEMENT 9 FOR FOURIER SYNTHESIS OF A REAL VECTOR X 

R 

110 

c 

R 

111 

c 

SEPARATE and rearrange 

R 

112 

90 

DO 100 I«1*N2 

R 

113 


J=N2+ I 

R 

114 


K*N2+2-I 

R 

115 


Z = I-1 

R 

116 


angle*z*c 

R 

117 


WR£=COSC ANGLE ) 

R 

118 


HIM*S INCANGLEI 

R 

119 


SUM1*XIH(I1+XIMCK» 

R 

120 


SUK2*XRE C I J-XRE (K ) ' 

R 

121 


XRE ( J ) *XRE CD + XRECKJ-HR E*SUH1-WIH*SUM2 

R 

122 

ICO 

XIK<JI«XIMCI)-XIM(KI+HRE*SUM2-WIM*SUM1 

R 

123 


DO 110 I=l» N2 

R 

124 


J*N2+I 

R 

125 


XRE(1)*XRE(J ) 

R 

126 


XIM(IJ*XIM( 

R 

127 

110 

XIM ( J ) *0 • 

R 

126 


CALL FFT (0#NPWK1>N2> XRErXIM) 

R 

129 

c 


R 

130 

c 

REARRANGE RESULTS 

R 

131 

c 


R 

132 


00 120 I *1>N2 

R 

133 


J-N2P1-I 

R 

134 


K*2* J— 1 

R 

135 

120 

XRE (K )=XRE ( J I 

R 

136 


DO 130 1*1»N2 

R 

137 


J = 2*I 

R 

138 


XREC J) -XIH <11 

R 

139 

130 

XIMf I) =0* 

R 

140 


RETURN 

R 

141 


END 

R 

142- 


SUBROUTINE EFT ( IREV*NPWR2*N*XRE*XIM) S 1 

DIMENSION XRE(N)* XIK<N>* WREU024)* WIMI1024)* INDEX(1024) S 2 

EQUIVALENCE < WRE (1 ) * INDEX (HI S 3 

C ^t*************************************************************** S 4 

C CALCULATES THE DISCRETE FOURIER TRANSFORM OF A SEQUENCE OF EQUALLY S 5 

C SPACED SAMPLES OF THE COMPLEX FUNCTION X ( I ) S 6 

C S 7 

C SEE GOLD AND RADER* ■ DIGITAL PROCESSING OF SIGNALS S 8 

C CHAPTER 6 PAGE 176. S 9 

C S 10 

C SET IREV = G TO OBTAIN THE OFT S 11 

C D F T ( J ) = SUM ON K OF X { K ) +£XP{ +6. 2 8 3* SORT {— 1 1 *JK/N) S 12 

C S 13 

C SET IREV = 1 TO OBTAIN THE IDFT S 14 

C IDFT ( J } = X(J) = ( I /N ) * t SUM ON K OF DFT(K ) *EXP (-6. 283*SQRT< -1 > * S 15 

C JK/N)> S 16 

C S 17 

C NPLR2 THE BASE TWO LOGARITHM OF THE NUMBER OF ELEMENTS IN THE S 18 

C SEQUENCE S 19 

C N = 2**(NPWR2; = NUMBER OF ELEMENTS IN THE COMPLEX VECTOR X S 20 

C S 21 

C XRE AND XIM CONTAIN THE SEQUENCE TO BE TRANSFORMED. THIS S 22 

C SUBROUTINE REPLACES XRE AND XIM BY THE REAL AND IMAGINARY PARTS S 23 

C UF THEIR TRANSFORM. S 24 

C S 25 

C WRE AND WIM ARE VALUES OF THE COMPLEX EXPONENTIAL S 26 

C S 27 

C INDEX IS A VECTOR CONTAINING ONES WHERE INDICES HAVE ALREADY BEEN S Ze 

C REVERSED. S 29 

C S 30 

C WRITTEN BY JETHRO MEEK (RICE UNIVERSITY* HOUSTON* TEXAS) S 31 

C JUNE* 1970. S 32 

c ***********************+**********************+************+****** s 33 

C S 34 

C DEFINE CONSTANTS AND PREPARE FOR COMPUTATION S 35 

C S 36 

DO 10 1= 1* N S 37 

10 INDEX (I) =0 S 38 


LO 

Ul 


*wtwn*if 


f- 




* « ■ > a-; 

4- -5- IT T" | 4' ’ 


r* . 

it 


i 


* - 


% 

■■■* 


wmmm 


20 

30 

C 

C 

C 

C 

c 

c 

c 

c 

40 


50 


C 

C 


60 


70 

60 

c 

c 

c 


ZN*N 

RATIG=1./ZN 
C=RATI0*6. 2631653 
IF (IREV) 30,20,30 
S = l. 

GO TO 40 
S*-l. 


PUT THE INPUT SEOUENCE IN BIT REVERSED ORDER 
INSERT X(IBFGK+1 ) IN LOCATION XCIAFTR+1), WHERE IAFTR IS THE 
BASE TEN VERSION OF A NUMBER FORMED BY REVERSING THE BINARY 
DIGITS UF THE BINARY TRANSLATION OF THE BASE TEN INDEX IBFOR. 
FIRST AND LAST ELEMENTS OF VECTOR X ARE ALREADY IN THE PROPER 
LOCATIONS. 


DO 90 IDG*3,N 
IBF0R=ID0-2 

IF ( INDEX ( 1BFGR ) ) 90,50,90 

IAFTR=0 

NDNGK=N 

NNUM*1BF0R 

I ADD- 1 

COMPUTE IAFTR 


00 70 I=I,NPWP2 
N0N0H*NDN0M/2 
NOU0T=NNUM/NDNDH 

IF (NQUOT ) 60,70,60 
NNUM^NNUM— NDNGM 
I AFTR=IAFTR*IADD 
IF INNUK) 70,80,70 
1 ADD *2* I A DO 
IBFP1® IBFOR^l 

1 AFP1*IAFTR<'1 

INSERT X ( IBFOR + 1 ) INTO XMAFTR+ll 


SAV£*XRE ( 1AFP1 ) 








S 39 
S 40 
S 41 
S 42 
S 43 
S 44 
S 45 
S 46 
S 47 
S 48 
S 49 
S 50 
S 51 
S 52 
S 53 
S 54 
S 55 
S 56 
S 57 
S 56 
S 59 
S 60 
S 61 
S 62 
S 63 
S 64 
S 65 
S 66 
S 67 
S 66 
S 69 
S 70 
S 71 
S 72 
S 73 
S 74 
S 75 
S 76 
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XRE( IAFP1) = XRE< IBFP1 ) S 77 

XRE(IBFP1)=SAVE S 78 

SAVE -X I M ( I AF P 1 ) S 79 

' XIH<1AFP1)*XIK( IBFP1) S eO 

XIH(IBFPI) = SAV£ S 81 

INDEX ( I AFTR ) = 1 S 82 

90 CONTINUE S 03 

C S 84 

C CALCULATE TWIDDLE FACTORS WRE AND WIN S 85 

C S 86 

DO 100 1*1, N S 87 

Z IM 1 = 1-1 S 88 

■WIN1+C $ 89 

WRE ( I ) =C0S (T ) S 90 

100 WIK(I >=S*SIN(T> S 91 

C S 92 

C COMPUTE DISCRETE FOURIER TRANSFORM S 93 

C SEE SIGNAL FLOW GRAPH, PAGE 178, GOLD AND RADER S 94 

C 1ST EP INDEXES THE COLUMNS OF FIGURE 6.10 S 95 

C THE ROWS OF THE SIGNAL FLOW GRAPH ARE DIVIDED INTO GROUPS S 96 

C NGRUP IS THE NUMBER OF GROUPS S 97 

C IGRUP INDEXES THE GROUPS OF ROWS S 98 

C EACH GROUP IS DIVIDED INTO PARIS OF ROWS CORRESPONDING TO THE NODE S 99 

C PARIS, v S 100 

C NP AIR IS THE NUMBER OF NODE PAIRS IN EACH GROUP S 101 

C I PAIR INDEXES THE NODE PAIRS WITHIN GROUPS S 102 

C XXI IS THE INDEX OF THE FIRST NODE OF A NODE PAIR S 103 

C 1X2 IS THE INDEX OF THE SECOND NODE OF A NODE PAIR S 104 

C IW IS THE INDEX OF THE TWIDDLE FACTOR FOR A NODE PAIR S 105 

C S 106 

NN-1 S 107 

DO 12C ' ISTEP*1,NPWR2 5 108 

NN=2*NN S 109 

NGRUP=N/NN S 110 

NP AIR =N/ { 2+NGRUP ) S 111 

1X1=1 S 112 

1X2=1 +N PAIR S 113 

DO 120 IGRUP=1, NGRUP S 114 
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I W=1 

S 

115 


00 110 IPAIR=1,NPAIR 

S 

116 


PR0DR=WRE(IW)*XRE(IX2)-WIM(IWJ*XIM<IX2) 

S 

117 


PR00I*WIM(IW)*XRE<IX21+WRE<IW)*XIM<IX2) 

S 

118 


SA VRE*XRE ( I XI > 

S 

119 


SAVIK*XIM(IX1) 

S 

120 


XREUX1 )*SAVRE + PRODR 

s 

121 


xm < ixi j »savim+prodi 

s 

122 


XRE(1X2)*SAVRE-PR0DR 

s 

123 


XIHCIX2)*SAVIM-PR00I 

s 

124 


1X1=1X1+1 

s 

125 


IX2*IX2+1 

s 

126 

110 

I W*I W+NGRUP 

s 

127 


IX1-IX 1+NPAIR 

s 

128 

120 

IX2*IX2+NPAIR 

s 

129 

C 

IF IDFT IS DESIRED, MULTIPLY BY RATIO (1/NI 

s 

130 


IF (IREVI 130,150,130 

s 

131 

130 

DO 140 1*1, N 

s 

132 


XRE(I )*RATIO*XRE<II 

s 

133 

140 

XIMC I)*RATICi*XIM(I) 

s 

134 

150 

RETURN 

s 

135 


END 

s 

136- 
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SUBROUTINE 5PLG1 (YMAXJ T 

C *^* + **^***4r*+******** + + ** + * + + *****************4***************;)t* + T 

C 1 H IS SUBkCUT I f E GENERATES THE CAMPBELL PLOT OF THE SYSTEM T 

C ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦■♦♦♦♦♦♦♦♦♦■It*******#********************'.************* T 

COMMON /BLK39/ NSPD,SSPEED( 10) T 

COMMON /BLK40/ FC (512 ), SFC (8,512 ) T 

CALL PLOT (15. >1., -3) T 

CALL PLOT (0.,5.,2) T 

CALL PLOT <G.,0.,3> T 

BASE=.6 T 

S PNAX=5. *SSPE£D ( 1 ) T 

%■ SDV=SPMAX/6. T 

•Qp ^Va CALL AXIS ( C. > 0 22H FREQUENCY CPM ,-22>6.#0 .*0.# SDV) T 

^ i 00 30 I*1#NSP0 T 

* Qt/ °# r, p, CALL PLOT <0.,BASE*-3) T 

YT=SFC ( I# 129) T 

y. CALL NUMBER <-. 8» 0. * . 1U SS PE ED ( X ) * 0 . » 4HF6 ♦ 0 ) T 

* CALL SYMBOL ( -.6, 17# . 1 4, 3HRPM, 0. > 3 ) T 

CALL PLOT (0.,0.,3) T 

CALL PLOT *0. 2,0. ,2) T 

CALL PLOT ( 0 • , G • , 3 ) T 

DIV=SSPfcED(I)/(128.*SDV) T 

X = 0. T 

00 10 J=l#512 T 

Y«SFC ( l* J ) / YMAX T 

IF CX.GT.8.) GO TO 20 T 

CALL PLOT C X, Y, 2 ) T 

X*X+OIV T 

10 CONTINUE T 

20 CONTINUE T 

CALL PLOT (0.,0.*3) T 

30 CONTINUE T 

CALL ENDPLT T 

RETURN T 

ENO T 


1 

2 
3 
9 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 
35- 
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